Изменение числа в каждый раз, когда я печатаю

У меня есть лист Excel, который я использую в качестве счета-фактуры.

Я хочу напечатать 100 страниц, и я хочу, чтобы номер счета изменялся от 1 до 100, так что каждая бумага будет иметь другой номер счета-фактуры.

Как я могу это сделать?

2 Solutions collect form web for “Изменение числа в каждый раз, когда я печатаю”

Для этого вам нужен макрос. Я нашел следующий макрос и внес некоторые изменения. Попробуйте проверить, работает ли он правильно:

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 

Я бы использовал макрос, чтобы сделать это, поскольку, похоже, нет простого, встроенного метода этого. Контур макроса будет довольно простым. Что-то в этом роде:

  1. Запрос количества копий и имени принтера
  2. Установите ячейку счета-фактуры на 0
  3. Петля для количества копий
    1. Увеличение номера ячейки счета-фактуры
    2. Распечатайте документ до имени принтера

редактировать

На этой странице есть пример этого для Word, поэтому вы можете просто адаптировать его к Excel. Эта страница имеет пример для Excel

Давайте будем гением компьютера.