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

Hier zeige ich Ihnen, wie Sie mehrere ausgewählte Zeilen in Excel mithilfe von VBA auf einer Seite drucken. Gehen Sie dazu bitte wie folgt vor:

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

2. Klicken Sie auf Einfügen > Modul, und fügen Sie 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-Skript auszuführen.

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

Hinweis: Halten Sie die Strg-Taste gedrückt, um mehrere nicht zusammenhängende Zeilen gleichzeitig auszuwählen.

Wenn wir diese nicht zusammenhängenden Zeilen kopieren und als zusammenhängenden Bereich in ein anderes Arbeitsblatt einfügen könnten, ließen sie sich problemlos auf einer Seite drucken. Diese Methode nutzt das Hilfsprogramm Kutools für Excel – Bereiche kopieren, um genau das zu erreichen.

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

Hinweis: Halten Sie die Strg-Taste gedrückt, um mehrere nicht zusammenhängende Zeilen gleichzeitig auszuwählen.

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

Hinweis: Die Option Zeilenhöhe einschließen sowie die Option Spaltenbreite einschließen kopieren beim Auswählen eines Bereichs dessen Zeilenhöhe und Spaltenbreite und fügen diese 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 > Aktives Arbeitsblatt.

Anschließend erscheint ein Dialogfeld, das anzeigt, wie viele Zeilen gelöscht wurden – schließen Sie es einfach.

5. Klicken Sie auf Datei(oder die)Office-Schaltfläche) und dann auf 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 geöffneten Assistenten zum Drucken mehrerer Auswahlbereiche auf die Schaltfläche Hinzufügen, um mehrere Zeilen auszuwählen, die gemeinsam gedruckt werden sollen, und anschließend auf die Schaltfläche Fertig stellen .

Hinweise:

(1) Nachdem Sie auf die Schaltfläche Hinzufügengeklickt haben, können Sie mehrere nicht zusammenhängende Bereiche in einem Arbeitsblatt auswählen, indem Sie die Strg -Taste gedrückt halten und die Bereiche nacheinander auswählen;key and then selecting them one by one;

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

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

3. Die ausgewählten Zeilen bzw. Bereiche wurden als verknüpfte Bilder in ein neues Arbeitsblatt eingefügt. Klicken Sie nun auf Datei(oder die)Office-Schaltfläche) und dann auf Drucken, um es auszudrucken.