Wie druckt man mehrere ausgewählte Zeilen auf einer Seite in Excel?

Hier werde ich über das Drucken mehrerer ausgewählter Zeilen auf einer Seite mit VBA in Excel sprechen. Bitte folgen Sie den nachstehenden Schritten:

1. Drücken Sie gleichzeitig die Tasten Alt + F11 , um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das neu geöffnete Modulfenster ein.

VBA: Mehrere ausgewählte Zeilen auf einer Seite in Excel drucken

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. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

4. Nun erscheint ein Kutools für Excel-Dialogfeld. Wählen Sie mehrere Zeilen aus, die Sie drucken möchten, und klicken Sie auf die Schaltfläche OK, um diese Zeilen zu drucken.

Hinweis: Wenn Sie die Strg-Taste gedrückt halten, können Sie gleichzeitig mehrere nicht angrenzende Zeilen auswählen.

Wenn wir diese nicht fortlaufenden Zeilen kopieren und als zusammenhängenden Bereich in ein anderes Arbeitsblatt einfügen könnten, könnten wir sie leicht auf einer Seite drucken. Diese Methode führt das Hilfsprogramm „Bereiche kopieren “ von Kutools für Excel ein, um damit umzugehen.

1. Erstellen Sie ein neues Arbeitsblatt, wählen Sie als Nächstes die Zeilen aus, die Sie aus Ihrer Tabelle drucken möchten, und klicken Sie auf Kutools > Bereich > Bereiche kopieren.

Hinweis: Wenn Sie die Strg-Taste gedrückt halten, können Sie gleichzeitig mehrere nicht fortlaufende Zeilen auswählen.

2. Aktivieren Sie im sich öffnenden Dialogfeld „Mehrere Bereiche kopieren“ die Option Alle und klicken Sie auf die Schaltfläche OK.

Hinweis: Die Optionen Zeilenhöhe einschließen und Spaltenbreite einschließen kopieren die Zeilenhöhen und Spaltenbreiten der ausgewählten Bereiche und fügen sie in den Zielbereich ein.

3. Wählen Sie die Zelle A1 im neu erstellten Arbeitsblatt aus und klicken Sie auf die Schaltfläche OK.

4. Bleiben Sie im Zielarbeitsblatt und klicken Sie auf Kutools > Löschen > Leere Zeilen löschen > Im aktiven Arbeitsblatt.

Dann erscheint ein Dialogfeld, das Ihnen zeigt, wie viele Zeilen gelöscht wurden. Schließen Sie es einfach.

5. Klicken Sie auf Datei (oder Office-Schaltfläche) > Drucken, um diese Zeilen zu drucken.

Tatsächlich hat Kutools für Excel den Assistenten zum Drucken mehrerer Auswahlbereiche entwickelt, um mehrere Bereiche gemeinsam in Excel zu drucken.

1. Klicken Sie auf Kutools Plus > Drucken > Assistent zum Drucken mehrerer Auswahlbereiche , um den Assistenten zum Drucken mehrerer Auswahlbereiche zu öffnen.

2. Klicken Sie im sich öffnenden Assistenten zum Drucken mehrerer Auswahlbereiche auf Hinzufügen Schaltfläche  , um die Zeilen hinzuzufügen, die Sie gemeinsam drucken möchten, und klicken Sie dann auf die Fertig Schaltfläche.

Hinweise:

(1) Nachdem Sie auf die Hinzufügen Schaltfläche geklickt haben, können Sie mehrere nicht fortlaufende Bereiche in einem Arbeitsblatt auswählen, indem Sie die Strg -Taste gedrückt halten und diese dann nacheinander auswählen;

(2) Um einen Bereich/eine Zeile aus der Liste Zu druckende Bereiche zu entfernen, wählen Sie diesen Bereich/diese Zeile einfach aus und klicken Sie auf die Löschen Schaltfläche.

(3) Dieses Hilfsprogramm unterstützt das Drucken ganzer Zeilen und Spalten nicht, z. B. ganze Zeile $4:$4 oder ganze Spalte $B:$B.

3. Die ausgewählten Zeilen/Bereiche wurden als verknüpfte Bilder in ein neues Arbeitsblatt eingefügt. Klicken Sie weiter auf Datei (oder Office-Schaltfläche) > Drucken , um es zu drucken.