Wie kann man den Druckbereich für mehrere Arbeitsblätter gleichzeitig in Excel festlegen?

Normalerweise können Sie in Excel jeweils nur in einem Arbeitsblatt den Druckbereich festlegen. Wenn Sie jedoch denselben Druckbereich in mehreren Arbeitsblättern einer Arbeitsmappe festlegen möchten, gibt es dann schnelle Wege, dies zu lösen? Nun werde ich Ihnen einige Details zu den schnellen Methoden zur Festlegung desselben Druckbereichs in mehreren Arbeitsblättern erläutern.

Gleichen Druckbereich für mehrere Arbeitsblätter mit Kutools für Excel festlegen

Gleichen Druckbereich für mehrere Arbeitsblätter mit VBA festlegen

Gleichen Druckbereich für mehrere Arbeitsblätter mit Kutools für Excel festlegen

Kutools für Excel ist ein praktisches Excel-Add-in, und seine Funktion „Seitenlayout kopieren“ kann Ihnen helfen, schnell den Druckbereich für mehrere Arbeitsblätter festzulegen.

Kutools für Excel umfasst mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen. Jetzt herunterladen

1. Wählen Sie den Druckbereich in einem der Arbeitsblätter aus, und klicken Sie dann auf Seitenlayout > Druckbereich > Druckbereich festlegen. Siehe Screenshot:

2. Klicken Sie auf Kutools Plus > Drucken > Seitenlayout kopieren.

3. Aktivieren Sie im Dialogfeld „Seitenlayout kopieren“ die Arbeitsblätter, für die Sie den Druckbereich gleichzeitig festlegen möchten, klicken Sie dann auf den Tabulator „Arbeitsblatt“ und aktivieren Sie nur „Druckbereich“ im Abschnitt „Seite einrichten“. Siehe Screenshot:

4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen, und klicken Sie im darauf folgenden Warnungsdialogfeld von Kutools für Excel auf Ja, dann werden die markierten Arbeitsblätter sofort mit denselben Druckbereichen versehen.

Klicken Sie hier für weitere Details zum Kopieren des Seitenlayouts.

Gleichen Druckbereich für mehrere Arbeitsblätter mit VBA festlegen

Wenn Sie sich für VBA interessieren, können Sie das folgende VBA ausprobieren.

1. Wählen Sie einen Bereich aus, den Sie als Druckbereich in einem der Arbeitsblätter festlegen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Modul > Einfügen, um ein Modulfenster einzufügen, und kopieren Sie das folgende VBA in das Fenster.

VBA: Druckbereich in der gesamten Arbeitsmappe festlegen.

Sub SetGlobalPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub

3. Klicken Sie auf die Schaltfläche Ausführen, um das VBA auszuführen, und dann werden alle Arbeitsblätter in der Arbeitsmappe mit denselben Druckbereichen versehen.

Tipp:

Wenn Sie den Druckbereich in ausgewählten Arbeitsblättern festlegen möchten, können Sie wie folgt vorgehen:

1. Wählen Sie einen Bereich aus, den Sie als Druckbereich festlegen möchten, und wählen Sie dann die Arbeitsblätter aus, indem Sie die Strg-Taste gedrückt halten, die Sie benötigen, und drücken Sie dann die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Modul > Einfügen, um ein Modulfenster einzufügen, und kopieren Sie das folgende VBA in das Fenster.

VBA: Druckbereich in ausgewählten Arbeitsblättern festlegen.

Sub SetSelectWsPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWindow.SelectedSheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub