CMS솔루션마켓, 이온디 - 워드프레스, 라이믹스, 카페24, 그누보드, 엑셀

웹기술을 같이 공유합니다

Home WEB 웹팁

Sub 인쇄하기()

  Dim J As Integer
  J = InputBox("몇장인쇄 할까요?")
    For J = 1 To J
       Worksheets(2).Range("A1") = Worksheets(1).Cells(2 * J, 2)
       Worksheets(2).Range("A3") = Worksheets(1).Cells(2 * J + 1, 2)
       ActiveWindow.SelectedSheets.PrintOut
    Next
 End Sub



출처 : https://answers.microsoft.com/ko-kr/msoffice/forum/all/%EC%97%91%EC%85%80-%EB%84%98%EB%B2%84%EB%A7%81/7260ae82-b0d8-48f1-b93d-1794fdafa259

추천한 사람

 
댓글은 로그인 사용자만 작성 가능합니다. 로그인하기