Alle Tabellenblätter drucken in Excel
Schritt-für-Schritt-Anleitung
Um alle Tabellenblätter in Excel zu drucken, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
-
Öffne deine Excel-Datei mit mehreren Tabellenblättern.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub AlleTabellenDrucken()
ActiveWorkbook.PrintOut Copies:=1
End Sub
-
Schließe den VBA-Editor.
-
Um das Makro auszuführen, drücke ALT + F8, wähle AlleTabellenDrucken und klicke auf Ausführen.
Alternativ kannst du auch einen Button in deinem Excel-Arbeitsblatt hinzufügen, um das Makro auszuführen.
Häufige Fehler und Lösungen
-
Fehler: Der Drucker gibt einen Fehler aus.
- Lösung: Überprüfe, ob der Drucker korrekt angeschlossen ist und ob andere Druckaufträge erfolgreich abgeschlossen wurden.
-
Fehler: Nur das aktive Blatt wird gedruckt.
- Lösung: Stelle sicher, dass das Makro
ActiveWorkbook.PrintOut verwendet wird, um alle Tabellenblätter zu drucken.
-
Fehler: Makro läuft nicht.
- Lösung: Aktiviere Makros in deinen Excel-Einstellungen, um die Ausführung zu erlauben.
Alternative Methoden
Es gibt verschiedene Möglichkeiten, um Excel mehrere Tabellenblätter zu drucken:
-
Druckdialog:
- Gehe zu
Datei -> Drucken, wähle den gewünschten Drucker aus und klicke auf Drucken. Hier kannst du auch das Druckbereich einstellen.
-
VBA mit spezifischen Blättern:
- Möchtest du bestimmte Blätter drucken, kannst du den Code anpassen:
Sub FastAlleTabellenDrucken()
Dim SH%, i%
SH = ActiveWorkbook.Sheets.Count
For i = 1 To SH
Select Case i
Case 1, 3
'mach nichts
Case Else
Sheets(i).PrintOut Copies:=1
End Select
Next
End Sub
Praktische Beispiele
Hier sind einige praktische Beispiele, wie du Excel Tabellen drucken kannst:
-
Alle Blätter drucken:
Sub AlleTabellenDrucken()
ActiveWorkbook.PrintOut Copies:=1
End Sub
-
Bestimmte Blätter ausschließen (z.B. 1. und 3. Blatt):
Sub FastAlleTabellenDrucken()
Dim SH%, i%
SH = ActiveWorkbook.Sheets.Count
For i = 1 To SH
Select Case i
Case 1, 3
'mach nichts
Case Else
Sheets(i).PrintOut Copies:=1
End Select
Next
End Sub
Tipps für Profis
- Verwende ActiveWorkbook.PrintOut für eine einfache Druckausgabe von allen Tabellenblättern.
- Du kannst auch die Anzahl der Kopien anpassen, indem du
Copies:=X in den Code einfügst, wobei X die gewünschte Anzahl ist.
- Nutze die Option
Preview:=True im PrintOut-Befehl, um eine Druckvorschau anzuzeigen, bevor du druckst.
FAQ: Häufige Fragen
1. Wie kann ich alle Tabellenblätter drucken, ohne ein Makro zu verwenden?
Du kannst die Blätter manuell auswählen und über den Druckdialog drucken, aber das ist weniger effizient.
2. Was kann ich tun, wenn mein Druckauftrag nicht funktioniert?
Überprüfe die Druckereinstellungen und stelle sicher, dass der Drucker online ist. Manchmal hilft auch ein Neustart des Druckers.
3. Gibt es eine Möglichkeit, nur bestimmte Bereiche der Tabellenblätter zu drucken?
Ja, du kannst den Druckbereich in jedem Tabellenblatt festlegen, bevor du das Makro ausführst.