Sie können jedes Blatt nicht direkt mit einem einzigen Excel -Befehl direkt ausdrucken. Sie können dies jedoch mit einer Kombination aus VBA -Code und einer Schleife erreichen. So wie:wie:
1. Aktivieren Sie die Registerkarte "Entwickler":
* Gehen Sie zu Datei> Optionen> Anpassen von Tibbon .
* Aktivieren Sie das Kontrollkästchen neben Entwickler und klicken Sie auf OK .
2. Fügen Sie VBA -Code ein:
* Klicken Sie auf den Entwickler Registerkarte und auswählen Visual Basic .
* Im Projekt Fenster, klicken Sie mit der rechten Maustaste auf ThisWorkbook und wählen Sie einfügen> Modul .
* Fügen Sie den folgenden Code in das Modul ein:
`` `vba
Sub printsheetSindividuell ()
Dim WS als Arbeitsblatt
'Schleife durch jedes Blatt in der Arbeitsmappe
Für jedes WS in diesem Workbook.Worksheets
'Drucken Sie das aktuelle Blatt aus
Ws.Printout Kopien:=1, sammeln:=true
'Warten Sie, bis der Druck fertig ist (optional)
Anwendung.wait jetzt + TimeValue ("00:00:05") 'Warte auf 5 Sekunden
NEXT WS
Ende sub
`` `
3. Führen Sie das Makro aus:
* Schließen Sie den Visual Basic -Editor .
* Gehen Sie zurück zum Entwickler Registerkarte und klicken Sie auf Makros .
* Wählen Sie die printsheetSindividuell aus Makro und klicken Sie auf ausführen .
Erläuterung:
* `sub printsheetSindividuell ()`: Definiert den Makroamen.
* `dim ws als Arbeitsblatt`: Deklariert eine Variable für jedes Arbeitsblatt.
* `für jedes WS in thisworkbook.worksheets`: Schleifen Sie jedes Blatt im Arbeitsbuch durch.
* `ws.printout Kopien:=1, collate:=true`: Druckt das aktuelle Arbeitsblatt (mit `ws`) mit einer Kopie und zusammengesandten Seiten.
* `application.wait nun + timeValue (" 00:00:05 ")`: Diese optionale Linie wartet 5 Sekunden nach dem Drucken jedes Blattes, um sicherzustellen, dass der Druckvorgang abgeschlossen ist, bevor sie zum nächsten Blatt wechselt. Passen Sie die Wartezeit nach Bedarf an.
* `Nächstes WS`: Beendet die Schleife und setzt sich mit dem nächsten Blatt fort.
Wichtige Hinweise:
* Der Code geht davon aus, dass Sie ein Standarddrucker -Setup haben. Wenn nicht, können Sie den Drucker mit `Ws.printout -Drucker angeben:=" YourPrintername "`.
* Das `wait` Die Erklärung kann nützlich sein, um Fehler zu verhindern, wenn der Druck viel Zeit in Anspruch nimmt. Passen Sie die Wartezeit nach Bedarf an.
Alternative:Verwenden einer Schleife und einer Ausdrucksmethode (keine VBA):
Während diese Methode jedes Blatt nicht einzeln ausdruiert, können Sie eine Schleife in einer Zellformel verwenden, um den Druckprozess auszulösen:
1. Geben Sie in einer Zelle die folgende Formel ein:
`` `excel
=If (row () <=Sheets (), "Druckblatt" &row (), "")
`` `
2. Kopieren Sie diese Formel auf die Anzahl der Blätter in Ihrem Arbeitsbuch.
3. Verwenden Sie die folgenden Schritte, um jedes Blatt mithilfe des `printout` zu drucken Verfahren:
* Gehen Sie zu Datei> Print .
* Im Druckbereich Dropdown, wählen Sie Auswahl .
* Klicken Sie auf Druck .
Dadurch wird der Druckvorgang für jedes Blatt ausgelöst, während Sie die Formel in der Spalte kopieren.
Wählen Sie die Methode, die Ihren Bedürfnissen und Vorlieben am besten entspricht.