Läuft Soweit, nur scheint die Funktion "Active Printer" den Standard-Drucker von Windows auf meinen anderen Druckertreiber mit dem speziellen Overlay umzustellen, das heisst, nach Betätigung von dem Macro springt der Standarddrucker auf den Nicht-Standarddrucker um.
Mein Code:
Sub Briefkopfeindruck()
'
' Briefkopfeindruck Makro
' Makro aufgezeichnet am 15.04.2003 von showroom
'
ActivePrinter = "Konica IP-511 PCL (Briefkopf Eindruck)"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=False, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
[/code]