Ga naar hoofdinhoud

Hoe meerdere selecties op één pagina in Excel afdrukken?

Auteur: Xiaoyang Laatst gewijzigd: 2020-07-17

Als u een groot werkblad heeft dat veel gegevens bevat, en u wilt nu enkele geselecteerde bereiken afdrukken die niet doorlopend zijn op één pagina, zodat u veel papier kunt besparen. Excel biedt de Stel Afdrukgebied in functie voor ons om meerdere selecties tegelijk af te drukken, maar elk geselecteerd bereik wordt afzonderlijk op één pagina afgedrukt. In dit artikel wordt besproken hoe u meerdere niet-doorlopende selecties op één pagina kunt afdrukken.

Druk meerdere selecties af van één werkblad op één pagina met VBA-code

Druk meerdere selecties van een of meerdere werkbladen op één pagina af met Kutools voor Excel


Druk meerdere selecties af van één werkblad op één pagina met VBA-code

Om meerdere geselecteerde niet-aaneengesloten selecties van één werkblad op één pagina af te drukken, kan de volgende VBA-code u helpen, doe dit als volgt:

1. pers Ctrl toets om de bereiken te selecteren die u wilt afdrukken.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: druk meerdere selecties af op één pagina

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Druk vervolgens op F5 toets om deze code uit te voeren, en de door u geselecteerde reeksen worden onmiddellijk afgedrukt en op één pagina afgedrukt.


Druk meerdere selecties van een of meerdere werkbladen op één pagina af met Kutools voor Excel

De bovenstaande code kan u alleen helpen om de geselecteerde bereiken van één werkblad af te drukken. Als u meerdere selecties van verschillende werkbladen op één pagina wilt afdrukken, zal de bovenstaande code niet werken. Maak je geen zorgen, hier kan ik je een handige tool voorstellen - Kutools for Excel, Met Wizard Meervoudige selectie afdrukken hulpprogramma, kunt u de selecties van één werkblad of meerdere werkbladen tegelijk op één pagina afdrukken.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Na het installeren van Kutools for Excel, voer de volgende stappen uit:

1. Klikken Koetools Plus > Printen > Wizard Meervoudige selectie afdrukken, zie screenshot:

2. In de Wizard Meervoudige selectie afdrukken, Klikdoc add-knop om het bereik dat u wilt afdrukken een voor een te selecteren en toe te voegen aan de keuzelijst Bereiken om af te drukken (u kunt de bereiken van één werkblad of meerdere werkbladen selecteren), klik op doc knop verwijderen knop kan de bereiken verwijderen die u niet nodig heeft, zie screenshot:

doc print meerdere selecties 2

3. Na het toevoegen van de selecties aan de keuzelijst, klikt u op Volgende >> knop om naar stap 2 van de wizard te gaan, geef de afdrukinstellingen op zoals u nodig hebt, en u kunt een lege rij tussen de geselecteerde bereiken toevoegen door aan te vinken Voeg een lege rij toe tussen bereiken optie, zie screenshot:

doc print meerdere selecties 3

4. Blijf dan klikken Volgende >> butoon, specificeer in stap 3 van de wizard de actie voor het tijdelijke werkblad, u kunt het werkblad activeren maar niet afdrukken, het werkblad afdrukken en bewaren of het werkblad afdrukken en verwijderen. Zie screenshot:

doc print meerdere selecties 4

5. Klikken Finish knop, zijn alle geselecteerde bereiken in een nieuw werkblad geplakt als gekoppelde afbeeldingsobjecten. En u kunt ze slepen en opnieuw rangschikken in het werkblad. Zie screenshot:

doc print meerdere selecties 5

6. Wanneer u dit nieuwe werkblad afdrukt, worden de bereiken naar behoefte op één enkele pagina afgedrukt.

Klik om meer te weten over dit hulpprogramma voor de wizard Meervoudige selectie afdrukken.

Download en gratis proef Kutools voor Excel nu!


Demo: druk meerdere selecties van een of meerdere werkbladen op één pagina af met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
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...

Omschrijving


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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to print selection area with multi print ? i means selection area i wan to print 10 times
This comment was minimized by the moderator on the site
I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined. This line is highlighted: Set xRng1 = xNewWs.Cells(xIndex, 1)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations