kann folgendes vereinfacht werden, bzw. ist es moeglich, dass buggs auftreten?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
End With
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
subs stehen im gleichen workbook.
danke thomas