Gruppe
Druck
Bereich
Wasserzeichen
Thema
Druck mit und ohne Wasserzeichen
Problem
Die Tabelle soll einmal normal und einmal mit dem Wasserzeichen "Duplikat" gedruckt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub PrintWithDuplicate()
With ActiveSheet
.Shapes("Duplikat").Visible = False
.PrintOut
.Shapes("Duplikat").Visible = True
.PrintOut
.Shapes("Duplikat").Visible = False
End With
End Sub