
송장으로 사용하는 Excel 시트가 있습니다.
100페이지를 인쇄하고 싶고 송장 번호를 1에서 100으로 변경하여 각 용지마다 서로 다른 송장 번호를 갖게 하고 싶습니다.
어떻게 해야 하나요?
답변1
그러기 위해서는 매크로가 필요합니다. 다음 매크로를 찾아서 일부 변경했습니다. 올바르게 작동하는지 확인해보세요.
Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.
For copynumber = 1 To CopiesCount
With ActiveSheet
.Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
.PrintOut 'Print the sheet
End With
Next copynumber
End Sub