Wie druckt man schnell die erste Seite jedes Blatts?

Wenn Sie eine Arbeitsmappe mit mehreren Arbeitsblättern haben und nur die erste Seite jedes Blatts drucken müssen, können Sie tatsächlich die Seiten 1 bis 1 in den Druckeinstellungen festlegen und sie nacheinander drucken. Dies kann jedoch mühsam und zeitaufwendig sein. Gibt es schnelle und einfache Möglichkeiten, alle ersten Seiten jedes Registers in Excel zu drucken?

Erste Seite jedes Blatts mit VBA-Code drucken

Erste Seite jedes Blatts mit einem Klick über Kutools für Excel drucken

Erste Seite jedes Blatts mit VBA-Code drucken

Der folgende VBA-Code kann Ihnen helfen, alle ersten Seiten der einzelnen Arbeitsblätter gleichzeitig schnell zu drucken. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Erste Seite jedes Blatts drucken

Sub PrintAllFirstPage()
'Update 20140924
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PrintOut from:=1, To:=1
Next
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und alle ersten Seiten jedes Registers werden gleichzeitig gedruckt.

Erste Seite jedes Blatts mit einem Klick über Kutools für Excel drucken

Wenn Sie Kutools für Excel installiert haben, gibt es darin mehrere Drucktools, und Sie können die Funktion „Die erste Seite jedes Arbeitsblatts drucken“ verwenden, um jede erste Seite jedes Blatts zu drucken.

Aktivieren Sie die Arbeitsmappe, von der Sie nur die erste Seite jedes Blatts drucken möchten, und klicken Sie dann auf Kutools Plus > Drucken > Die erste Seite jedes Arbeitsblatts drucken. Dann erscheint ein Popup von Kutools für Excel zur erneuten Bestätigung. Siehe Screenshot:

Dann werden nach dem Klick alle ersten Seiten jedes Blatts gedruckt.

Verwandte Artikel:

Wie druckt man Seiten mit römischen Seitenzahlen?

Wie druckt man mehrere Arbeitsmappen in Excel?

Wie druckt man eine lange Spalte auf einer Seite in Excel?

Wie druckt man Seiten in umgekehrter Reihenfolge eines Arbeitsblatts?