Makro: Nur 1.Seite drucken
16.08.2002 05:03:47
Oliver Biermann
Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "xxx"
With Sheets("Drucken")
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "xxx"
End Sub