Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe bepaalde pagina's of werkbladen te printen op basis van een celwaarde in Excel?

Author Siluvia Last modified

Heeft 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 specifiek paginanummer of een heel werkblad wanneer een voorwaarde is voldaan, deze handleiding biedt stap-voor-stap methoden om dit te bereiken.

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

Bepaalde pagina afdrukken op basis van celwaarde met VBA-code

Stel dat u een bepaalde pagina, zoals pagina 1 van het huidige werkblad, automatisch wilt laten afdrukken wanneer u het paginanummer 1 invoert in cel A1 van het huidige werkblad. U kunt als volgt te werk gaan om dit te bereiken.

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

2. Het Microsoft Visual Basic for Applications-venster verschijnt. 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 pop-upvenster van Kutools voor Excel klikt u op de knop Ja om de bepaalde pagina af te drukken, of klikt u op de knop Nee om het dialoogvenster te sluiten als u niet wilt afdrukken. Zie screenshot:

A screenshot of the Kutools for Excel dialog box for printing a specific page based on a cell value

Het voorbeeldvenster van de bepaalde pagina van het huidige werkblad wordt geopend. Klik op de knop Afdrukken om met afdrukken te beginnen.

A screenshot of the Print Preview window

Bepaalde pagina afdrukken op basis van celwaarde met VBA-code

Stel dat u het actieve werkblad wilt afdrukken wanneer de waarde in cel B2 van dit blad gelijk is aan het getal 1001. U kunt dit bereiken met de volgende VBA-code. Ga als volgt te werk.

1. Klik met de rechtermuisknop op het Werkbladtabblad dat u wilt afdrukken op basis van een celwaarde, en klik vervolgens op Weergave Code in het rechtermuisknopmenu.

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

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

A screenshot showing where to insert VBA code for printing based on a cell value in Excel

Opmerking: U kunt de cel en celwaarde in de code naar behoefte wijzigen.

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

Wanneer u het nummer 1001 invoert in cel B2, verschijnt er een pop-upvenster van Kutools voor Excel. Klik op de knop Ja om met afdrukken te beginnen, of klik op de knop Nee om het dialoogvenster direct te sluiten zonder te printen. Zie screenshot:

A screenshot of the Kutools for Excel dialog box for confirming worksheet printing based on cell value

Tip: Als u direct niet-opeenvolgende pagina's zoals pagina 1, 6 en 9 in het huidige werkblad wilt afdrukken, of alleen alle even of oneven pagina's wilt afdrukken, kunt u de functie Specifieke pagina's afdrukken van Kutools voor Excel gebruiken zoals weergegeven in onderstaande screenshot.

A screenshot of the Kutools for Excel Print Specified Pages utility for selective printing

Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen

Gerelateerde artikelen:

Beste productiviteitstools voor Office

🤖 Kutools AI Assistent: Transformeer data-analyse door: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools functies aanroepen…
Populaire functies: Dubbele waarden markeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies |   Afronden zonder formule...
Super ZOEKEN: Meervoudig-criteria opzoeken | Meervoudige waarde opzoeken | Meervoudig-blad opzoeken | Fuzzy Match....
Geavanceerde keuzelijst: Keuzelijst snel maken | Afhankelijke keuzelijst | Meervoudige selectie in keuzelijst....
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheidsstatus van verborgen kolommen wisselen | Bereik & kolommen vergelijken...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden via lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...)...
Top15 gereedschapssets:12 teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) | 50+ grafiek typen (Gantt-diagram, ...) | 40+ praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) | 19 invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & splitsgereedschappen (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer
Gebruik Kutools in je voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...

Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!

Alle Kutools-invoegtoepassingen. Eén installatieprogramma

Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.

Excel Word Outlook Tabs PowerPoint
  • Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
  • Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
  • 30 dagen volledige proef — geen registratie, geen creditcard nodig
  • Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen