Как напечатать несколько копий с порядковыми номерами страниц?
Вы когда-нибудь пробовали напечатать несколько копий одного листа с порядковыми номерами страниц? Это означает, что нужно напечатать 10 копий одного листа и заполнить ячейку A1 в 1-й копии 001, во 2-й копии 002… и в 10-й копии 010. В Excel нет встроенной функции, которая может решить это задание, но в этой статье я представлю код макроса, который поможет вам быстро распечатать несколько копий с порядковым номером страницы в Excel.
Распечатать копии с разными номерами по коду VBA
Распечатать копии с разными номерами по коду VBA
Выполните следующие шаги, чтобы напечатать несколько копий одного листа с порядковыми номерами по коду VBA.
1. Включите лист, который вы хотите напечатать, и нажмите клавиши Alt + F11, чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте ниже код в Модули сценарий. Смотрите скриншот:
VBA: печатать копии с порядковыми номерами страниц.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub
Внимание: в коде, A1 это ячейка, в которую вы хотите поместить порядковый номер, 1 Для 10 указывает на печать 10 копий, а "'00" и я это формат последовательности, вы можете изменить их по своему усмотрению.
3. Нажмите F5 нажмите клавишу для запуска кода, и появится диалоговое окно, напоминающее вам, что распечатайте 10 копий. Нажмите OK чтобы закрыть диалоговое окно, каждая распечатанная копия имеет свой порядковый номер.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
