Ga naar hoofdinhoud

Hoe meerdere geselecteerde rijen op één pagina in Excel afdrukken?

Bij het afdrukken van selecties in Excel, worden niet-opeenvolgende bereiken afgedrukt op afzonderlijke pagina's. In sommige gevallen hoeven we slechts enkele geselecteerde rijen / bereiken op één pagina uit een lange tabel af te drukken, maar deze geselecteerde rijen / bereiken zijn niet opeenvolgend. Daarom, hoe deze rijen / bereiken op één pagina in Excel afdrukken? Er zijn verschillende oplossingen:

Druk meerdere geselecteerde rijen op één pagina af met VBA

Druk meerdere geselecteerde rijen op één pagina af met kopiëren naar één werkblad

Druk meerdere geselecteerde rijen op één pagina af met Kutools voor Excel

Batch print meerdere selecties (alle afdrukgebieden) op één pagina in Excel

Kutools voor Excel's Wizard Meerdere selecties afdrukken kan u helpen niet alleen alle afdrukgebieden van hetzelfde werkblad eenvoudig op één pagina af te drukken, maar ook om eenvoudig meerdere bereiken van veel werkbladen op één pagina af te drukken.

advertentie print meerdere selecties 2


Hier zal ik het hebben over het afdrukken van meerdere geselecteerde rijen op één pagina met VBA in Excel. Ga als volgt te werk:

1. druk op anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Applications te openen.

2. klikken Invoegen > Moduleen plak vervolgens de onderstaande VBA-code in het nieuwe openingsmodule-venster.

VBA: print meerdere geselecteerde rijen op één pagina in Excel

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. druk op F5 toets of klik op de lopen knop om deze VBA uit te voeren.

4. Nu verschijnt een Kutools for Excel-dialoogvenster. Selecteer meerdere rijen die u wilt afdrukken en klik op de OK knop om deze rijen af ​​te drukken.

Note: Houd de Ctrl -toets, kunt u meerdere niet-aangrenzende rijen tegelijkertijd selecteren.


Als we deze niet-opeenvolgende rijen kunnen kopiëren en als een opeenvolgend bereik in een ander werkblad kunnen plakken, kunnen we ze gemakkelijk op één pagina afdrukken. Deze methode introduceert Kutools voor Excel's Kopieer bereiken hulpprogramma om ermee om te gaan.

Kutools for Excel - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Download nu!

1. Maak een nieuw werkblad, selecteer vervolgens rijen die u wilt afdrukken vanuit uw tabel en klik op Kutools > Kopieer bereiken.

Note: Houd de Ctrl -toets, kunt u meerdere niet-opeenvolgende rijen tegelijkertijd selecteren.

2. Vink in het dialoogvenster Meerdere bereiken kopiëren openen aan Alles optie en klik op de Ok knop.

NoteDe Inclusief rijhoogte optie en Inclusief kolombreedte opties zullen de rijhoogtes en kolombreedtes van geselecteerde bereiken kopiëren en in het doelbereik plakken.

3. Selecteer cel A1 in het nieuw gemaakte werkblad en klik op OK Knop.

4. Blijf in het bestemmingswerkblad en klik op Kutools > Verwijder > Verwijder lege rijen > In actief blad.

En dan verschijnt er een dialoogvenster dat laat zien hoeveel rijen zijn verwijderd. Sluit het gewoon.

5. Klik op het Dien in (of Office-knop)> Print om deze rijen af ​​te drukken.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu


Eigenlijk Kutools voor Excel-ontwerpen Wizard Meervoudige selectie afdrukken om meerdere bereiken samen in Excel af te drukken.

Kutools for Excel - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Download nu!

1. klikken Enterprise > Printen > Wizard Meervoudige selectie afdrukken om de wizard Meervoudige selectie afdrukken te openen.

2. Klik in de openings Wizard Meervoudige selectie afdrukken op Toevoegen  om rijen toe te voegen die u samen wilt afdrukken, en klik op de Finish knop.

Opmerkingen:

(1) Nadat u op het Toevoegen , kunt u meerdere niet-opeenvolgende bereiken in één werkblad selecteren door de Ctrl toets en selecteer ze vervolgens een voor een;

(2) Om een ​​bereik / rij te verwijderen uit het Bereiken om af te drukken lijst, selecteer dit bereik / rij en klik op het Verwijder .

(3) Dit hulpprogramma biedt geen ondersteuning voor het afdrukken van hele rijen en kolommen, zoals een hele rij met $ 4: $ 4, of hele kolom van $ B: $ B.

3. Geselecteerde rijen / bereiken zijn als gekoppelde afbeeldingen in een nieuw werkblad geplakt. Ga je gang om te klikken Dien in (of Office-knop)> Print om het af te drukken.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu


Kutools for Excel: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations