☰

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

tag-icon • tag-icon microsoft-excel printing
Меняю число каждый раз, когда печатаю

У меня есть таблица 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

решение2

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

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

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

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

Связанный контент