Попытка реализовать этот макрос - Изменение числа при каждой печати.
В настоящее время я пытаюсь использовать макрос для изменения номера счета-фактуры при печати пакета.
***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***
Это работает, как есть, но я хочу напечатать партию счетов, начиная с счета номер 400. Когда я пытаюсь изменить эту часть
For copynumber = 1 To CopiesCount
в
For copynumber = 400 To CopiesCount
это не работает (Это изменение было предложено в комментарии к принятому ответу в связанном вопросе.)
Как я могу изменить код, чтобы я мог указать начальный номер счета?