Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "xxx"
With Sheets("Drucken")
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "xxx"
End Sub
Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "xxx"
With Sheets("Drucken")
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "xxx"
End Sub
schreibe
.PrintOut From:=1, To:=1, Copies:=1
Gruß Hajo
Um nur die erste Seite eines Excel-Dokuments zu drucken, kannst du ein einfaches Makro erstellen. Folge diesen Schritten:
Öffne Excel und gehe zu dem Arbeitsblatt, das du drucken möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Einfügen > Modul.Kopiere und füge den folgenden Code ein:
Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "xxx" ' Passwort anpassen
With Sheets("Drucken")
.Visible = True
.PrintOut From:=1, To:=1, Copies:=1
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "xxx" ' Passwort anpassen
End Sub
Passe das Passwort an, falls erforderlich.
Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro wählst und auf Ausführen klickst.
Mit diesem Excel VBA Druck-Makro kannst du sicherstellen, dass nur die erste Seite des Arbeitsblattes "Drucken" ausgegeben wird.
Fehler: Das Makro wird nicht ausgeführt.
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen.Fehler: Die Seite wird nicht korrekt gedruckt.
Wenn du kein Makro verwenden möchtest, kannst du auch die Druckeinstellungen manuell anpassen:
Datei > Drucken.Seiten einrichten.Drucken.Diese Methode erfordert keinen VBA-Code, ist jedoch weniger flexibel.
Hier ist ein Beispiel für die Verwendung des Makros:
Angenommen, dein Arbeitsblatt "Drucken" enthält Berichte, und du möchtest nur die erste Seite für eine Besprechung ausdrucken. Mit dem oben beschriebenen Makro kannst du dies schnell erledigen, ohne den gesamten Bericht drucken zu müssen.
Anpassung des Makros: Du kannst das Makro erweitern, um mehrere Kopien oder verschiedene Seiten zu drucken. Ändere einfach die Werte in .PrintOut From:=1, To:=1, Copies:=1 zu deinen Bedürfnissen.
Fehlerbehebung: Nutze Debug.Print innerhalb deines Codes, um Fehler zu identifizieren und die Ausführung des Makros zu überwachen.
VBA-Referenzen: Wenn du tiefer in die VBA Excel Druck-Programmierung einsteigen möchtest, schaue dir die Excel VBA-Dokumentation an, um mehr über die verfügbaren Objekte und Methoden zu erfahren.
1. Kann ich das Makro auch in anderen Excel-Versionen verwenden?
Ja, das Makro funktioniert in den meisten Excel-Versionen, die VBA unterstützen, wie Excel 2010, 2013, 2016 und 2019.
2. Was mache ich, wenn ich kein Passwort für das Arbeitsblatt habe?
Du kannst die Zeilen mit ActiveWorkbook.Unprotect und ActiveWorkbook.Protect entfernen, wenn du keine Passwortsicherung benötigst.
3. Wie kann ich das Makro für andere Seiten anpassen?
Ändere einfach die Werte in .PrintOut From:=1, To:=1 zu den Seiten, die du drucken möchtest, z.B. .PrintOut From:=2, To:=3, um die Seiten 2 bis 3 zu drucken.