Private Sub CommandButton1_Click()
ActiveSheet.PrintOut
End Sub
Um eine Seite in Excel über einen Commandbutton zu drucken, folge diesen einfachen Schritten:
Entwicklertools aktivieren: Stelle sicher, dass die Entwicklertools in Excel aktiviert sind. Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Kontrollkästchen "Entwicklertools".
Commandbutton einfügen:
VBA-Code hinzufügen:
Private Sub CommandButton1_Click()
ActiveSheet.PrintOut
End SubButton testen: Schließe den VBA-Editor und wechsle zurück zu Excel. Klicke auf den Button, um das aktuelle Tabellenblatt zu drucken.
Fehler: Button funktioniert nicht
Lösung: Stelle sicher, dass der Code korrekt eingegeben wurde und dass du den richtigen Buttonnamen verwendest (z.B. CommandButton1).
Fehler: Drucker nicht ausgewählt
Lösung: Überprüfe, ob ein Drucker korrekt eingerichtet und ausgewählt ist, bevor du den Button klickst.
Falls du keinen Commandbutton verwenden möchtest, gibt es auch andere Möglichkeiten, um das Drucken zu automatisieren:
Makro über das Menü: Du kannst ein Makro erstellen, das die PrintOut-Methode nutzt und dieses über die Menüleiste ausführen.
Tastenkombination: Du kannst auch eine Tastenkombination für das Drucken eines Arbeitsblatts festlegen, um den Vorgang zu beschleunigen.
Hier ist ein praktisches Beispiel zur Verwendung des Excel Makro drucken Button:
Druckoptionen anpassen: Du kannst die PrintOut-Methode anpassen, um spezifische Druckeinstellungen zu verwenden, wie z.B. nur bestimmte Seiten zu drucken:
ActiveSheet.PrintOut From:=1, To:=1, Copies:=2Fehlermeldungen vermeiden: Füge Fehlerbehandlungsroutinen in deinen Code ein, um unerwartete Probleme zu vermeiden.
1. Wie kann ich den Button umbenennen?
Um den Button umzubenennen, klicke mit der rechten Maustaste darauf, wähle "Eigenschaften" und ändere den Namen im Feld "Name".
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten aktuellen Excel-Versionen funktionieren, die ActiveX-Elemente unterstützen.