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.

1. Maak een nieuw werkblad, selecteer vervolgens rijen die u wilt afdrukken vanuit uw tabel en klik op Kutools > Bereik> 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.

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

1. klikken Koetools Plus > Print > 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.