Ganze Arbeitsmappe drucken per Schaltfläche
Schritt-für-Schritt-Anleitung
Um die gesamte Excel-Arbeitsmappe per Schaltfläche zu drucken, kannst du die folgenden Schritte befolgen:
-
Öffne Excel und lade die Arbeitsmappe, die du drucken möchtest.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke im Menü auf
Einfügen > Modul.
-
Kopiere den folgenden VBA-Code in das Modul:
Sub MappeDrucken()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ws.PrintOut
Next
Application.ScreenUpdating = True
End Sub
-
Füge einen Button hinzu:
- Gehe zurück zu deinem Arbeitsblatt und wähle
Entwicklertools > Einfügen > Button.
- Zeichne den Button auf dem Blatt.
-
Weise das Makro zu:
- Klicke mit der rechten Maustaste auf den Button und wähle
Makro zuweisen.
- Wähle
MappeDrucken aus der Liste aus und klicke auf OK.
-
Sperre das Druckmenü:
- Füge folgenden Code in
DieseArbeitsmappe ein:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
Jetzt kannst du die Schaltfläche nutzen, um die gesamte Arbeitsmappe zu drucken, ohne dass das Druckmenü geöffnet wird.
Häufige Fehler und Lösungen
-
Fehler: Nichts passiert beim Klicken auf den Button
Lösung: Stelle sicher, dass du das Makro korrekt zugewiesen hast. Überprüfe auch, ob die Makros in Excel aktiviert sind.
-
Fehler: Einige Blätter werden nicht gedruckt
Lösung: Überprüfe, ob die Blätter sichtbar sind. Versteckte Blätter werden standardmäßig nicht gedruckt.
Alternative Methoden
- Direkter Druck über die Symbolleiste: Du kannst die Arbeitsmappe auch direkt über die Symbolleiste drucken, indem du
Datei > Drucken wählst.
- Drucken mit einer Tastenkombination: Drücke
Strg + P, um das Druckmenü zu öffnen und die Einstellungen vorzunehmen.
Praktische Beispiele
Hier sind Beispiele für verschiedene Szenarien:
-
Drucken einer bestimmten Arbeitsmappe: Wenn du nur bestimmte Blätter drucken möchtest, kannst du den Code entsprechend anpassen:
Sub BestimmteBlätterDrucken()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Blatt1" Or ws.Name = "Blatt2" Then
ws.PrintOut
End If
Next
Application.ScreenUpdating = True
End Sub
-
Drucken im Hintergund: Um die Benutzeroberfläche nicht zu blockieren, kannst du den Druckvorgang im Hintergrund ausführen lassen.
Tipps für Profis
- Automatisiere den Druckprozess: Du kannst den Druckprozess so einstellen, dass er automatisch beim Öffnen der Arbeitsmappe startet.
- Verwende die
PrintOut-Methode: Diese Methode bietet dir viele Optionen, wie das Drucken in bestimmten Formaten oder das Festlegen von Seitenbereichen.
FAQ: Häufige Fragen
1. Wie kann ich die Druckvorschau anzeigen, bevor ich drucke?
Du kannst die Druckvorschau anzeigen, indem du ActiveSheet.PrintPreview im VBA-Code verwendest.
2. Was muss ich tun, wenn ich nur bestimmte Seiten drucken möchte?
Ändere den PrintOut Befehl, um nur die gewünschten Seiten zu drucken, z.B. ws.PrintOut From:=1, To:=2 für die Seiten 1 bis 2.
3. Ist dieses Verfahren in allen Excel-Versionen verfügbar?
Ja, das Drucken der gesamten Arbeitsmappe per Schaltfläche ist in den meisten Versionen von Excel möglich, einschließlich Excel 2010 bis 2021 und Office 365.