Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not booIsZoom Then
Tabelle1.PageSetup.Zoom = 110 'Zoom auf 110%
End If
End Sub
Achte aber darauf das Du nicht über die Seitenränder hinaus Zoomst.Private Sub Workbook_BeforePrint(Cancel As Boolean)
Tabelle1.PageSetup.Zoom = 110 'Zoom auf 110%
End Sub
Gruß Tino