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

Hier zal ik het hebben over het afdrukken van meerdere geselecteerde rijen op één pagina met VBA in Excel. Volg de volgende stappen:

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak vervolgens de onderstaande VBA-code in het nieuwe geopende Module-venster.

VBA: Meerdere geselecteerde rijen op één pagina afdrukken 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 de F5-toets of klik op de Uitvoeren-knop om deze VBA uit te voeren.

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

Opmerking: Door de Ctrl-toets ingedrukt te houden, kunt u meerdere niet-aangrenzende rijen tegelijk selecteren.

Als we deze niet-aaneengesloten rijen kunnen kopiëren en plakken als een aaneengesloten bereik in een ander werkblad, kunnen we ze gemakkelijk op één pagina afdrukken. Deze methode introduceert het hulpprogramma Bereiken kopiëren van Kutools voor Excel om dit te behandelen.

1. Maak een nieuw werkblad aan, selecteer vervolgens de rijen die u wilt afdrukken uit uw tabel, en klik op Kutools > Bereik > Bereiken kopiëren.

Opmerking: Door de Ctrl-toets ingedrukt te houden, kunt u meerdere niet-aangrenzende rijen tegelijk selecteren.

2. Schakel in het venster Meerdere bereiken kopiëren de optie Alles in, en klik op de Ok-knop.

Opmerking: De opties Rijhoogte opnemen en Kolombreedte opnemen zullen de rijhoogtes en kolombreedtes van de geselecteerde bereiken kopiëren en plakken in het doelbereik.

3. Selecteer cel A1 in het nieuw aangemaakte werkblad, en klik op de OK-knop.

4. Blijf in het doelwerkblad, en klik op Kutools > Verwijderen > Verwijder lege rijen > Actief werkblad.

Er verschijnt een dialoogvenster dat laat zien hoeveel rijen zijn verwijderd. Sluit het gewoon.

5. Klik op Bestand (of Office-knop) > Afdrukken om deze rijen af te drukken.

Eigenlijk heeft Kutools voor Excel de Print Multiple Selection Wizard ontworpen om meerdere bereiken samen af te drukken in Excel.

1. Klik op Kutools Plus > Afdrukken > Print Multiple Selection Wizard om de Print Multiple Selection Wizard te openen.

2. Klik in de geopende Print Multiple Selection Wizard Toevoegen knop  om rijen toe te voegen die u samen wilt afdrukken, en klik vervolgens op de Voltooien knop.

Opmerkingen:

(1) Nadat u op de Toevoegen knop hebt geklikt, kunt u meerdere niet-aaneengesloten bereiken selecteren in één werkblad door de Ctrl toets ingedrukt te houden en deze vervolgens één voor één te selecteren;

(2) Om een bereik/rij te verwijderen uit de Bereiken om af te drukken lijst, selecteert u dit bereik/rij en klikt u op de Verwijderen knop.

(3) Dit hulpprogramma ondersteunt geen afdrukken van hele rijen en kolommen, zoals hele rij $4:$4, of hele kolom $B:$B.

3. Geselecteerde rijen/bereiken zijn als gekoppelde afbeeldingen geplakt in een nieuw werkblad. Ga verder en klik op Bestand (of Office-knop) > Afdrukken om het af te drukken.