Hoe drukt u meerdere exemplaren af met opeenvolgende paginanummers?
Bent u ooit in een situatie geweest waarin u meerdere exemplaren van hetzelfde werkblad moet afdrukken, maar elk exemplaar uniek en opeenvolgend genummerd wilt hebben? Stel dat u bijvoorbeeld 10 exemplaren van een formulier nodig heeft: dan toont cel A1 op het eerste afdrukje 001, op het tweede 002, enzovoort tot en met 010 op het laatste exemplaar. Deze aanpak is ideaal voor het maken van genummerde facturen, tickets, bestelformulieren of elke batch waarbij het traceren van individuele exemplaren essentieel is voor organisatorische of controle-doeleinden.
Helaas biedt Excel geen ingebouwde functie waarmee u automatisch meerdere exemplaren kunt afdrukken met opeenvolgende nummers in een opgegeven cel. Het handmatig aanpassen van het werkblad voor elke afdruk is onpraktisch, zeker bij grote aantallen. Met een eenvoudige VBA-macro automatiseert u dit proces: bespaar tijd, verminder handmatige fouten en zorg ervoor dat elk exemplaar correct en uniek genummerd is.
Afdrukken Kopieën met verschillende nummers via VBA-code
Gebruik Excel-formules en handmatig afdrukken
Afdrukken Kopieën met verschillende nummers via VBA-code
Afdrukken Kopieën met verschillende nummers via VBA-codeDeze methode gebruikt een VBA-macro om meerdere exemplaren van een werkblad af te drukken, waarbij automatisch opeenvolgende nummers in een opgegeven cel worden ingevoegd bij elke afdruk.
Volg deze stappen om snel de macro te maken en uit te voeren:
1. Activeer eerst het werkblad dat u wilt afdrukken. Druk vervolgens op Alt + F11 om het Microsoft Visual Basic for Applications (VBA)-editorvenster te openen.
2. Klik in de VBA-editor op Invoegen > Module om een nieuwe module toe te voegen. Kopieer en plak de volgende code in het modulevenster. (Raadpleeg de schermafbeelding voor visuele ondersteuning.)
VBA: Afdrukken van meerdere kopieën 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
Opmerkingen en tips bij parameters:
- In de code geeft de verwijzing A1 de cel aan waarin het reeksnummer verschijnt. Wilt u een andere cel gebruiken, zoals B2? Pas dan de verwijzing dienovereenkomstig aan.
- 1 To10 geeft aan hoeveel exemplaren er moeten worden afgedrukt (in dit voorbeeld 10). U kunt 10 wijzigen in een ander positief geheel getal, indien nodig.
- „'00" & I zorgt ervoor dat het reeksnummer wordt weergegeven als een driecijferig nummer met voorloopnullen (bijv. 001, 002, 003). Als u een ander formaat wilt – bijvoorbeeld beginnend bij 100 of zonder voorloopnullen – past u de tekenreeks dienovereenkomstig aan.
- Zorg ervoor dat uw werkblad gereed is en geen gegevens bevat die in de doelcel zouden kunnen worden overschreven voordat u de macro uitvoert. Sla uw werkmap aanbevolen op voordat u verdergaat, aangezien macro-acties niet ongedaan kunnen worden gemaakt.
3. Druk, terwijl uw werkblad nog actief is, op F5 of op de knop Uitvoeren in de VBA-editor om de code uit te voeren. Er verschijnt een dialoogvenster met de melding: „10 exemplaren worden afgedrukt met opeenvolgende nummers”. Klik op OK om door te gaan; de macro verwerkt automatisch elk nummer, vult de reeks in de door u opgegeven cel in en drukt het blad af. Elk afdrukje krijgt een uniek nummer volgens uw instellingen.
Gebruik Excel-formules en handmatig afdrukken
Als u slechts een beperkt aantal exemplaren nodig heeft of liever geen gebruik maakt van macro’s, kunt u de vulgreep van Excel gebruiken om opeenvolgende nummers te genereren en daarna elke rij handmatig afdrukken. Deze methode is vooral geschikt wanneer unieke nummering vereist is voor labels, badges of formulieren binnen een beheersbare batch.
1. Voer in een nieuwe kolom (bijvoorbeeld kolom A) het startnummer van de reeks in de eerste cel in, zoals 001. U doet dit door de volgende formule in cel A1 in te voeren:
=TEXT(ROW(A1),"000")2. Sleep de vulgreep naar beneden om de formule te kopiëren voor zoveel exemplaren als u wilt afdrukken (bijvoorbeeld tot rij 10 voor 10 exemplaren). Elke cel toont dan het volgende opeenvolgende nummer, inclusief voorloopnullen.
3. Kopieer de gehele rij of dataset naar een nieuw blad voor elk vereist exemplaar en gebruik de Afdrukken-functie van Excel om de bladen individueel af te drukken. Deze handmatige methode is ideaal voor kleinere batches en biedt meer visuele controle vóór het afdrukken.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins