Forums Neueste Beiträge
 

Druckereigenschaften mit VBA steuern - Wasserzeichen

26/10/2009 - 10:20 von Peter E | Report spam
Hallo Community,
möchte gerne mein Dokument mit Schaltflàche "Entwurf drucken" ausstatten und
über das (oder den) Makro auf die Option aus dem Menue DATEI / DRUCKEN /
EIGENSCHAFTEN / WASSERZEICHEN zugreifen. Sichergestellt werden müsste dabei
auch, dass eine Ausdruck "auf normale Weise" ohne Wasserzeichen durch Druck
auf das Druckersymbol möglich bleibt. Ist das mit einer VBA-Prozedur (für
Dummis wie mich) realisierbar oder gibt es andere Vorschlàge, den gleichen
Effekt (Wasserzeichen) zu erzielen?
Gruß an alle Hilfsbereiten,
Peter
 

Lesen sie die antworten

#1 Andreas Killer
26/10/2009 - 11:14 | Warnen spam
Peter E schrieb:

möchte gerne mein Dokument mit Schaltflàche "Entwurf drucken" ausstatten und
über das (oder den) Makro auf die Option aus dem Menue DATEI / DRUCKEN /
EIGENSCHAFTEN / WASSERZEICHEN zugreifen.


Das ist mit einem Makro nicht möglich.

Zum einem ist diese Einstellung nicht in Excel verfügbar, denn sobald
Du auf die Eigenschaften des Druckers zurückgreifst, erreichst Du nur
Einstellungen des Treibers.

Nun gàbe es theoretisch die Möglichkeit über eine API-Funktion auf den
Drucker bzw. dessen Einstellungen zurückzugreifen, in der
DEVMODE-Struktur ist aber IMHO keine Deklaration für ein Wasserzeichen
enthalten.

D.h. die Wasserzeichen-Funktion ist eine "private Funktion" des
Druckertreibers und nicht für jeden Drucker verfügbar. Z.B. der
"Microsoft XPS Document Writer" oder PDFCreator haben diese Funktion
nicht.

Für einen àhnlichen Effekt ist es jedoch möglich temporàr z.B. die
Kopfzeile auszutauschen:

Sub Entwurfsdruck()
Dim SaveCenterHeader As String
'Aktuellees Blatt
With ActiveSheet
'Seiteneinstellungen
With .PageSetup
'Mittlere Kopfzeile sichern
SaveCenterHeader = .CenterHeader
.CenterHeader = "Entwurfsdruck"
End With
'Drucken mit Vorschau
.PrintOut Preview:=True
'Mittlere Kopfzeile wieder herstellen
.PageSetup.CenterHeader = SaveCenterHeader
End With
End Sub

Andreas.

Ähnliche fragen