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

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

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

  • Печать документа Microsoft Word в очерченном формате
  • Отключение принтера до перезапуска службы спулера
  • Диалоговое окно «Печать» запрашивает подтверждение при печати всего документа
  • Печать документа A3 (Word) на принтере формата A4
  • Можете ли вы сделать MS Word черным фоном с белым текстом, но напечатать инверсный?
  • Как я могу это сделать?

  • Можете ли вы сделать MS Word черным фоном с белым текстом, но напечатать инверсный?
  • Диалоговое окно «Печать» запрашивает подтверждение при печати всего документа
  • Отключение принтера до перезапуска службы спулера
  • Печать документа Microsoft Word в очерченном формате
  • Печать документа A3 (Word) на принтере формата A4
  • 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

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