Hoe druk je meerdere kopieën af met opeenvolgende paginanummers?

Heb je ooit geprobeerd om meerdere kopieën van één werkblad af te drukken met opeenvolgende paginanummers? Dat betekent dat je 10 kopieën van één werkblad afdrukt en cel A1 in de 1e kopie vult met 001, in de 2e kopie met 002…, en in de 10e kopie met 010. In Excel is er geen ingebouwde functie voor dit doel, maar in dit artikel introduceer ik een macrocode om je snel te helpen bij het afdrukken van meerdere kopieën met opeenvolgende paginanummers.

Kopieën afdrukken met verschillende nummers via VBA-code

Kopieën afdrukken met verschillende nummers via VBA-code

Volg de onderstaande stappen om meerdere kopieën van een werkblad af te drukken met opeenvolgende nummers met behulp van VBA-code.

1. Activeer het werkblad dat je wilt afdrukken en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in het Modulescript. Zie screenshot:

VBA: Kopieën afdrukken met opeenvolgende paginanummers.

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

Opmerking: in de code is A1 de cel waarin je het volgnummer wilt plaatsen, 1 Tot 10 geeft aan dat er 10 kopieën worden afgedrukt, en "'00" & I is het volgnummerformaat. Je kunt deze naar wens wijzigen.

3. Druk op F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin wordt bevestigd dat er 10 kopieën zullen worden afgedrukt. Klik op OK om het dialoogvenster te sluiten, en elke afgedrukte kopie zal zijn eigen volgnummer hebben.