Frage: Wie kann ich veranlassen, dass bei jedem Druckauftrag automatisch 4 Ausdrucke dieses versteckten/geschuetzten Tabellenblattes ausgedruckt werden; aber so dass eine Seite den Schriftzug "Original" und die restlichen drei den Schriftzug Kopie enthalten? Wahrscheinlich kommt nicht auf Anhieb die Patentantwort, aber trotzdem danke.
Sub Drucken()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "XXX"
With Sheets(" 2. Print ")
.Visible = True
.PrintOut
.Visible = xlSheetVeryHidden
End With
ActiveWorkbook.Protect "XXX"
End Sub