Festlegen des Papierschachtes beim Ausdrucken über VBA

25/11/2008 - 08:30 von Manste | Report spam
Hallo Forum,

ich habe mit dem Makrorecorder ein Makro zum Ausdrucken eines
Dokuments erstellt. Der Code sieht bisher so aus.

'Callback for ReinschriftDrucken onAction
Sub AufrufRDrucken(control As IRibbonControl)

' ReinschriftDrucken Makro
' Reinschrift Drucken
'

Options.PrintHiddenText = False
Application.PrintOut FileName:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Jetzt hàtte ich gerne noch zusàtzlich aufgeonmmen, dass die 1. Seite
des Dokumentes aus Papierschacht 2 des Druckers gezogen wird, die
folgenden aus Papierschacht 1.

Kann mir jemand sagen, wie ich den Code noch anpassen muss?

Im Voraus Danke.

Gruß
Manste
 

Lesen sie die antworten

#1 Carsten Sekulla
25/11/2008 - 08:50 | Warnen spam
Hallo Manste,
das ist eher was für "Seite einrichten",
denn diese Einstellung schlàgt die Auswahl des Druckerschachtes aus dem
Drucker-Dialog (Windows-OS)

auch mit Makrorecorder
Sub Makro1()
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterLowerBin
.OtherPagesTray = wdPrinterLargeCapacityBin
End With
End Sub

wdPrinterLowerBin, wdPrinterLargeCapacityBin sind individuelle, je nach
Drucker

cu CS

Ähnliche fragen