У меня есть лист Excel для печати набора из 3 страниц, который я использую для расписания. Мне нужен какой-то макрос, который может менять цифры после каждых трех напечатанных листов. Итак, первые три листа - 0001, а следующие три 0002 - следующие три 0003, и так далее.
Если возможно, мне нужно начинать с того места, где я остановился. Вот что я пробовал до сих пор:
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.
For i = 1 To 3
.PrintOut 'Print the sheet
End With
Next copynumber
End Sub
Пара проблем:
- Он не печатает лист три раза с одним и тем же номером
- Мне также нужно, чтобы число было нулем лидера (например, 0001, 0002 ... 000n)
Какие-либо решения?