Мне нужно распечатать бланк бланка заявки и иметь каждый номер последовательно. Когда я закрываю файл и снова открываю для печати следующего пакета, я хочу, чтобы нумерация начиналась там, где я остановился после предыдущего пакета. т.е. я запускаю партию от 1 до 75; следующая партия должна быть 76 - 210; следующая партия 211 - 300. Я нашел твой макрос для нумерации, но каждый раз он по умолчанию возвращается к 1. Это не соответствует моим потребностям. Вот что у меня так далеко. Это работает, но оно не подходит, где я остановился, оно всегда начинается с 1.
Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim Copynumber As Long
CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
For Copynumber = 1 To CopiesCount
With ActiveSheet
.Range("k11").Value = Copynumber
.PrintOut 'print the sheet
End With
Next Copynumber
End Sub