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%E... 더보기