Automatisch nach einem bestimmten Makro drucken
Schritt-für-Schritt-Anleitung
Um ein Excel-Makro zu erstellen, das automatisch nach einer bestimmten Wochenauswertung druckt, befolge diese Schritte:
- Öffne Excel und lade das Arbeitsblatt, das du verwenden möchtest.
- Gehe zu
Entwicklertools und klicke auf Visual Basic, um den VBA-Editor zu öffnen.
- Erstelle ein neues Modul mit
Einfügen > Modul.
- Füge den folgenden VBA-Code ein:
Public Sub drucken()
Dim i As Long
For i = 1 To 12
Sheets(i).PrintOut
Next i
End Sub
- Schließe den VBA-Editor und speichere die Änderungen.
- Rufe das Makro
drucken am Ende deiner Wochenauswertung auf, indem du den Code Call drucken verwendest.
Diese Schritte ermöglichen es dir, nur die gewünschten Tabellen 1-12 automatisch auszudrucken, ohne die Verwaltungstabelle zu drucken.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Möglichkeit, das Drucken zu automatisieren, ist die Verwendung eines Arrays. Dies ist nützlich, wenn du spezifische Blätter drucken möchtest:
Public Sub drucken()
ThisWorkbook.Sheets(Array("TabEingabe", "TabAusgabe")).PrintOut 'weitere Blätter ergänzen
End Sub
Hierbei kannst du die gewünschten Tabellennamen im Array angeben, um gezielt bestimmte Tabellen auszudrucken.
Praktische Beispiele
Angenommen, du hast folgende Tabellen:
- TabEingabe
- TabAusgabe
- Arbeitsblatt1
- Arbeitsblatt2
- ...
Wenn du nur TabEingabe und TabAusgabe drucken möchtest, könntest du den folgenden Code verwenden:
Public Sub drucken()
ThisWorkbook.Sheets(Array("TabEingabe", "TabAusgabe")).PrintOut
End Sub
Dies ist besonders nützlich, wenn du nicht alle Blätter drucken möchtest und gezielt auswählen kannst.
Tipps für Profis
-
Druckeinstellungen anpassen: Du kannst die Druckeinstellungen vor dem Drucken anpassen, indem du With ActiveSheet und End With verwendest, um spezifische Einstellungen wie Seitenlayout, Ränder usw. festzulegen.
-
Drucken im Hintergrund: Wenn du viele Blätter druckst, kann es sinnvoll sein, den Druckvorgang in den Hintergrund zu verschieben, um Excel während des Druckens weiterhin nutzen zu können.
FAQ: Häufige Fragen
1. Kann ich das Makro so anpassen, dass es nur bestimmte Zellen druckt?
Ja, du kannst den Druckbereich festlegen, indem du ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10" vor dem Druckbefehl hinzufügst.
2. Funktioniert das Makro in allen Excel-Versionen?
Ja, die gezeigten Makros sollten in den meisten modernen Excel-Versionen (Excel 2010 und höher) funktionieren. Achte darauf, dass die Makros aktiviert sind.