Mehrere Seiten mit einem Makro drucken
Schritt-für-Schritt-Anleitung
Um ein Makro zu erstellen, das mehrere Seiten druckt, kannst du die folgenden Schritte befolgen:
-
Öffne Excel und gehe zu Entwicklertools.
-
Klicke auf Visual Basic, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu, indem du im Projektfenster mit der rechten Maustaste auf VBAProject klickst und Einfügen > Modul wählst.
-
Kopiere den folgenden Code in das Modul:
Sub Drucken()
Worksheets(1).PrintOut Copies:=2
Worksheets(1).Range("H11") = Worksheets(1).Range("H11") + 1
Worksheets(2).[b1:b4, b6:b14,c6:c14].ClearContents
End Sub
Hierbei wird die Anzahl der Kopien auf 2 gesetzt. Du kannst die Zahl ändern, um mehr oder weniger Kopien zu drucken.
-
Speichere das Makro und schließe den VBA-Editor.
-
Füge einen Button in dein Arbeitsblatt ein, um das Makro auszuführen. Du kannst das über Entwicklertools > Einfügen > Schaltfläche tun.
Häufige Fehler und Lösungen
Alternative Methoden
Eine Alternative zum Programmieren eines Makros ist die Verwendung des Macrorecorders:
- Gehe zu
Entwicklertools und klicke auf Makro aufzeichnen.
- Führe den Druckvorgang manuell durch. Der Recorder zeichnet alle Schritte auf.
- Stoppe die Aufzeichnung und bearbeite den erzeugten Code im VBA-Editor, um Anpassungen vorzunehmen, wie z.B. die Anzahl der Kopien.
Praktische Beispiele
Wenn du beispielsweise Rechnungen drucken möchtest, kannst du das Makro so anpassen:
Sub RechnungenDrucken()
For i = 1 To 5 ' Druckt 5 Kopien der ersten Rechnung
Worksheets(1).PrintOut Copies:=1
Next i
Worksheets(1).Range("H11") = Worksheets(1).Range("H11") + 5 ' Aktualisiere den Zähler
Worksheets(2).[b1:b4, b6:b14,c6:c14].ClearContents
End Sub
Diese Anpassung druckt fünf Kopien nacheinander und aktualisiert den Zähler entsprechend.
Tipps für Profis
-
Nutze Variablen, um die Anzahl der Kopien dynamisch zu gestalten. So kannst du den Wert zur Laufzeit bestimmen.
Dim anzahlKopien As Integer
anzahlKopien = InputBox("Wie viele Kopien möchtest du drucken?", "Kopien drucken")
Worksheets(1).PrintOut Copies:=anzahlKopien
-
Überlege, ob du einen Dialog einfügen möchtest, um die Anzahl der zu druckenden Kopien flexibel zu gestalten.
FAQ: Häufige Fragen
1. Wie kann ich die Anzahl der Kopien im Makro ändern?
Du musst lediglich den Wert in Copies:=2 anpassen. Ersetze die 2 durch die gewünschte Anzahl.
2. Kann ich das Makro auf mehreren Arbeitsblättern ausführen?
Ja, du kannst das Makro so anpassen, dass es auf mehreren Arbeitsblättern druckt, indem du die PrintOut-Methode auf die entsprechenden Arbeitsblätter anwendest.
3. Welche Excel-Version benötige ich für das Makro?
Das Makro sollte in Excel 2007 und neueren Versionen ohne Probleme funktionieren.