Makro bitte prüfen und evtl. ergänzen
Josef_T
Habe mir unten stehendes Druckmakro zusammen gestellt, es funktioniert zwar, aber nicht exakt.
z.B. müsste ".Zoom = 100" noch einprogrammiert werden, ich bekomme das aber nicht auf die Reihe.
Über "Seite einrichten", kann ich nichts machen, weil in dem gleichen TB noch zwei andere Druckmakros installiert sind, die aber nur kleine Bereiche drucken.
Es wäre Super, wenn Ihr Profis mir dabei helfen würdet.
Option Explicit
Sub Stunden()
Application.EnableEvents = False
Range("A1:H43").Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$43"
With ActiveSheet.PageSetup.Orientation = xlPortrait
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.EnableEvents = True
Range("C3").Select
End Sub
Gruß, Josef
Anzeige