UF ausdrucken
07.11.2014 12:17:09
walter
Guten Morgen,
habe dieses Makro im Netz gefunden, wollte jetzt im
Querformat drucken, geht nicht.
Kann man jemand schauen, was ich da ändern muss ?
Danke im
Voraus
walter mb
Public Sub CommandButton3_Click()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
Me.Zoom = 80
Me.PrintForm 'drucken
Me.Zoom = 100 'anschließend hochsetzen
Application.ScreenUpdating = True
' .Orientation = xlPortrait ' für Hochformat
' .Zoom = 63
' .Orientation = xlLandscape ' für Querformat
' .Zoom = False ' Anpassen
End Sub
Anzeige