Hallo Hansen,
das brauchst du gar nicht wissen.
'stellt die Einstellungen des Druckers zurück
ActivePrinter = strDrucker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterMiddleBin
.OtherPagesTray = wdPrinterMiddleBin
End With
Application.ActivePrinter = strDrucker
wdPrinterMiddleBin - ist z. B. schon ein Konstanter Wert (im Hintergrund) der das mittlere Fach auswählt
wdPrinterFirstBin - kann das erste Fach auswählen
wdPrinterSecondBin - kann das zweite Fach auswählen usw
ich hab das jetzt selber noch nicht getestet, da mein Drucker nur eine Lade hat, vielleicht morgen in der Firma
Gruß Detlev
|