KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe drukt u specifieke pagina’s of een werkblad af op basis van een celwaarde in Excel?

AuteurSiluvia Wijzigingsdatum

Hebt u ooit specifieke pagina’s of werkbladen in Excel moeten afdrukken op basis van de waarde van een cel? Of het nu gaat om het afdrukken van een bepaald paginanummer of een volledig werkblad zodra aan een voorwaarde is voldaan – deze handleiding biedt u stapsgewijze methoden om dat eenvoudig voor elkaar te krijgen.

Bepaalde pagina afdrukken op basis van celwaarde met VBA-code
Bepaald werkblad afdrukken op basis van celwaarde met VBA-code

Bepaalde pagina afdrukken op basis van celwaarde met VBA-code

Stel dat u automatisch een specifieke pagina – bijvoorbeeld pagina 1 van het huidige werkblad – wilt afdrukken zodra u het paginanummer 1 invoert in cel A1 van datzelfde werkblad. Dit kunt u als volgt realiseren.

1. Selecteer de cel met het paginanummer waarop u wilt afdrukken en druk tegelijkertijd op Alt en F11 om het Microsoft Visual Basic for Applications-venster te openen. Klik vervolgens op Invoegen > Module.

2. Vervolgens verschijnt het Microsoft Visual Basic for Applications-venster. Kopieer en plak de volgende VBA-code in het Code-venster.

VBA-code: pagina afdrukken op basis van celwaarde

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. Druk op F5 om de code uit te voeren. In het verschijnende Kutools voor Excel-dialoogvenster klikt u op de knop Ja om de betreffende pagina af te drukken, of op de knop Nee om het dialoogvenster te sluiten als u niet wilt afdrukken. Zie schermafbeelding:

Een schermafbeelding van het Kutools for Excel-dialoogvenster voor het afdrukken van een specifieke pagina op basis van een celwaarde

Vervolgens opent het voorbeeldvenster van de betreffende pagina van het huidige werkblad. Klik op de knop Afdrukken om met het afdrukken te beginnen.

Een schermafbeelding van het Afdrukvoorbeeldvenster

Bepaalde pagina afdrukken op basis van celwaarde met VBA-code

Stel dat u het actieve werkblad wilt afdrukken zodra de waarde in cel B2 van dat blad gelijk is aan 1001. Dit kunt u eenvoudig realiseren met de volgende VBA-code — volg hiervoor de onderstaande stappen.

1. Klik met de rechtermuisknop op het Bladtabblad dat u wilt afdrukken op basis van een celwaarde en klik vervolgens op Code weergeven in het contextmenu.

2. Vervolgens verschijnt het Microsoft Visual Basic for Applications-venster. Kopieer de volgende VBA-code en plak deze in het codevenster.

VBA-code: werkblad afdrukken op basis van celwaarde

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

Een schermafbeelding die laat zien waar VBA-code moet worden ingevoegd voor afdrukken op basis van een celwaarde in Excel

Opmerking: U kunt de cel en de bijbehorende waarde in de code naar wens aanpassen.

3. Druk op Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.

Wanneer u het getal 1001 invoert in cel B2, verschijnt er een Kutools voor Excel-dialoogvenster. Klik op de knop Ja om met het afdrukken te beginnen, of op de knop Nee om het dialoogvenster direct te sluiten zonder af te drukken. Zie schermafbeelding:

Een schermafbeelding van het Kutools for Excel-dialoogvenster voor het bevestigen van het afdrukken van werkbladen op basis van celwaarden

Tip: Als u direct niet-opeenvolgende pagina’s wilt afdrukken, zoals pagina 1, 6 en 9 in het huidige werkblad, of alleen alle even of oneven pagina’s, kunt u de Gespecificeerde Pagina's Afdrukken-functie van Kutools voor Excel gebruiken, zoals in de onderstaande schermafbeelding wordt getoond.

Een schermafbeelding van het Kutools for Excel-hulpprogramma 'Opgegeven pagina's afdrukken' voor selectief afdrukken

Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen

Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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.

ExcelWordOutlookTabsPowerPoint
  • 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