Ga naar hoofdinhoud

Hoe bepaalde pagina's of werkbladen afdrukken op basis van de celwaarde in Excel?

Heb je ooit geprobeerd een bepaalde pagina of werkblad af te drukken op basis van een celwaarde in Excel? En hoe bereik je dat? De methoden in dit artikel kunnen u helpen het in detail op te lossen.

Druk een bepaalde pagina af op basis van de celwaarde met VBA-code
Druk een bepaald werkblad af op basis van de celwaarde met VBA-code


Druk een bepaalde pagina af op basis van de celwaarde met VBA-code

U wilt bijvoorbeeld dat een bepaalde pagina, zoals pagina 1 van het huidige werkblad, automatisch wordt afgedrukt wanneer u paginanummer 1 invoert in cel A1 van het huidige werkblad. U kunt het volgende doen om dit te bereiken.

1. Selecteer de cel met het paginanummer waarop u wilt afdrukken, en druk vervolgens op anders en F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster. Dan klikken Invoegen > Module.

2. Vervolgens de Microsoft Visual Basic voor toepassingen 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 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, klik op de Ja knop om de bepaalde pagina af te drukken, of klik op de Nee om het dialoogvenster te sluiten als u niet wilt afdrukken. Zie screenshot:

Vervolgens wordt het voorbeeldvenster van de bepaalde pagina van het huidige werkblad geopend, klik op de Print om te beginnen met afdrukken.


Druk een bepaalde pagina af op basis van de celwaarde met VBA-code

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

1. Klik met de rechtermuisknop op het Blad Tab die u wilt afdrukken op basis van de celwaarde, en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. Vervolgens de Microsoft Visual Basic voor toepassingen venster verschijnt, kopieer en plak de volgende VBA-code 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

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

3. druk op anders + Q om de te sluiten Microsoft Visual Basic voor toepassingen venster.

Bij het invoeren van nummer 1001 in cel B2, een Kutools for Excel dialoogvenster verschijnt, klik dan op het Ja om te beginnen met afdrukken. Of klik op het Nee om het dialoogvenster direct te verlaten zonder af te drukken. Zie screenshot:

Tip: Als u niet-opeenvolgende pagina's zoals pagina 1, 6 en 9 in het huidige werkblad rechtstreeks wilt afdrukken of alleen alle even of oneven pagina's wilt afdrukken, kunt u de Druk gespecificeerde pagina's af hulpprogramma pf Kutools for Excel zoals hieronder getoond screenshot. Je kan gaan naar download de software gratis zonder beperking binnen 30 dagen.


Gerelateerde artikelen:

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
This comment was minimized by the moderator on the site
Hi Ryan,
If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

Sub Print_Pages()
Dim xPage As String
Dim xYesorNo As Integer
Dim xI As String
Dim xPArr() As String
Dim xIS, xIE, xF, xNum As Integer
xPage = ActiveCell.Value
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
xPArr() = Split(xPage, "-")
If UBound(xPArr) = 0 Then
If IsEmpty(xPage) And IsNumeric(xPage) Then
MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
xNum = Int(xPage)
ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
ElseIf UBound(xPArr) = 1 Then
On Error GoTo Err01
xIS = Int(xPArr(0))
xIE = Int(xPArr(1))
If xIS < xIE Then
For xF = xIS To xIE
ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
Next
Else
For xF = xIE To xIS
ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
Next
End If
Else
MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
Exit Sub
End If
Else
Exit Sub
End If
Exit Sub
Err01:
MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
End Sub
This comment was minimized by the moderator on the site
Thank you. I have the same issue I want to print pages based on cell value. Lets say variable changes i.e page 1-5 and then some time 2-6. So I have a field which will calculate and will put that in text format as suggested.But for some reason it doesnt work for me. It doesnt prints any pages.Can you please advise
This comment was minimized by the moderator on the site
Did you ever figure out how to get this working?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations