Hoe drukt u meerdere geselecteerde rijen op één pagina af in Excel?

Hier leg ik uit hoe u meerdere geselecteerde rijen op één pagina afdrukt met VBA in Excel. Volg de onderstaande stappen:

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

2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het nieuw geopende Modulevenster.

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 F5 of klik op de Uitvoeren-knop om deze VBA uit te voeren.

4. Er verschijnt nu een Kutools voor Excel-dialoogvenster. Selecteer de rijen die u wilt afdrukken en klik op de OK-knop om ze af te drukken.

Opmerking: Houd de Ctrl-toets ingedrukt om meerdere niet-aangrenzende rijen tegelijk te selecteren.

Als we deze niet-opeenvolgende rijen kunnen kopiëren en als een opeenvolgend bereik in een ander werkblad plakken, kunnen we ze eenvoudig op één pagina afdrukken. Deze methode maakt gebruik van het hulpprogramma Kutools voor Excel met de functie Bereiken kopiëren om dit aan te pakken.

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

Opmerking: Houd de Ctrl-toets ingedrukt om meerdere niet-opeenvolgende rijen tegelijk te selecteren.

2. Schakel in het geopende Alles-dialoogvenster van Meerdere bereiken kopiëren in en klik op de Ok-knop.

Opmerking: Met de opties Rijhoogte opnemen en Kolombreedte opnemen worden rijhoogte en kolombreedte van het geselecteerde bereik gekopieerd en in het doelbereik geplakt.

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

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

Er verschijnt vervolgens een dialoogvenster met het aantal verwijderde rijen. Sluit dit eenvoudigweg.

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

Eigenlijk heeft Kutools voor Excel de wizard Meerdere selecties afdrukken ontworpen om meerdere bereiken tegelijkertijd in Excel af te drukken.

1. Klik op KUTOOLS PLUS > Afdrukken > Meerdere selecties afdrukken om de wizard Meerdere selecties afdrukken te openen.

2. Klik in de geopende wizard Meerdere selecties afdrukken op de knop Toevoegen om de rijen die u samen wilt afdrukken te selecteren, en klik vervolgens op de Voltooien-knop.

Opmerkingen:

(1) Na het klikken op de Toevoegen-knop kunt u meerdere niet-opeenvolgende bereiken in één werkblad selecteren door de Ctrl-toets ingedrukt te houden en ze vervolgens één voor één te selecteren;

(2) Als u een bereik of rij uit de lijst Af te drukken bereiken wilt verwijderen, selecteert u dit bereik of rij en klikt u op de Verwijderen-knop .

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

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