habe mir ein Makro mittels recorder aufgezeichnet...
Es sollen 2 Blätter ausgedruckt werden, wie kriege ich es per makro hin, dass die zweite seite das wasserzeicehn " Duplikat" erhält.
Danke für die Hilfe
Thomas
Sub Original_Duplikat_Drucken()
' Original_Duplikat_Drucken Makro
' Original Drucken
ActiveWindow.SelectedSheets.PrintOut
'Hier Befehle für Wasserzeichen einrichten
' Duplicat Drucken
ActiveWindow.SelectedSheets.PrintOut
'Hier Befehle für Wasserzeichen wieder entfernem
End Sub
Alternative mit Text "D U P L I K A T" in Kopfzeile
Sub Original_Duplikat_Drucken2() '
' Drucken Original
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Ändern der mittleren Kopfzeile
With ActiveSheet.PageSetup
.CenterHeader = "&18 D U P L I K A T" 'Text in Schriftgröße 18pt
End With
' Drucken des Dupilkats
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Zurücksetzen der mittleren Kopfzeile
With ActiveSheet.PageSetup
.CenterHeader = ""
End With
End Sub