Gruppe
Druck
Problem
Die Tabelle soll einmal normal und einmal mit dem Wasserzeichen "Duplikat" gedruckt werden.
StandardModule: basMain
Sub PrintWithDuplicate()
With ActiveSheet
.Shapes("Duplikat").Visible = False
.PrintOut
.Shapes("Duplikat").Visible = True
.PrintOut
.Shapes("Duplikat").Visible = False
End With
End Sub