Hallo Hansen,
zurück zu deinem Code:
'stellt die Einstellungen des Druckers zurück
ActivePrinter = strDrucker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterMiddleBin
.OtherPagesTray = wdPrinterMiddleBin
End With
Application.ActivePrinter = strDrucker
With ActiveDocument.PageSetup
hier hast du die "Seite einrichten" Einstellung für deine Dokumente geändert, der Kommentar sagt leider was anderes aber der wird ja nicht ausgeführt ; ).
- für die erste Seite deines Dukumentes
- für alle folgenden Seiten
das geht so in Ordnung, da der Druckertreiber ja nicht geändert wird und hier nur das Dokument ein anderes Fach benutzen soll.
Gruß Detlev
|