Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druck mit und ohne Wasserzeichen

Gruppe

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