Wie druckt man mehrere Kopien mit fortlaufenden Seitenzahlen?

Haben Sie jemals versucht, mehrere Kopien eines Arbeitsblatts mit fortlaufenden Seitenzahlen zu drucken? Das bedeutet, 10 Kopien eines Arbeitsblatts zu drucken und die Zelle A1 in der 1. Kopie mit 001, in der 2. Kopie mit 002 usw. zu füllen, und in der 10. Kopie mit 010. In Excel gibt es dafür keine integrierte Funktion, aber in diesem Artikel stelle ich einen Makro-Code vor, der Ihnen hilft, schnell mehrere Kopien mit fortlaufenden Seitenzahlen zu drucken.

Kopien mit unterschiedlichen Nummern über VBA-Code drucken

Kopien mit unterschiedlichen Nummern über VBA-Code drucken

Folgen Sie den unten aufgeführten Schritten, um mehrere Kopien eines Blatts mit fortlaufenden Nummern mithilfe von VBA-Code zu drucken.

1. Aktivieren Sie das Arbeitsblatt, das Sie drucken möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul-Skript ein. Siehe Screenshot:

VBA: Kopien mit fortlaufenden Seitenzahlen drucken.

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 "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub

Hinweis: Im Code ist A1 die Zelle, in der Sie die Sequenznummer platzieren möchten, 1 Bis 10 gibt an, dass 10 Kopien gedruckt werden sollen, und "'00" & I ist das Sequenzformat. Sie können diese Werte nach Bedarf ändern.

3. Drücken Sie F5 , um den Code auszuführen. Ein Dialogfeld wird angezeigt, das bestätigt, dass 10 Kopien gedruckt werden. Klicken Sie auf OK , um das Dialogfeld zu schließen, und jede gedruckte Kopie erhält ihre eigene Sequenznummer.