Как напечатать несколько копий с порядковыми номерами страниц?

Вы когда-нибудь пробовали напечатать несколько копий одного листа с порядковыми номерами страниц? Это означает, что нужно напечатать 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 чтобы закрыть диалоговое окно, каждая распечатанная копия имеет свой порядковый номер.