Hallo,
im Treiber ist das Fach 2 vorgegeben. Das Drucken aus Fach 2 funktioniert auch bei allen Dokumenten mit Ausnahme von Worddokumenten.
der Code sieht wie folgt aus:
Sub druck()
Dim strDrucker As String
Dim stDocName As String
Dim filter As String
strDrucker = Application.ActivePrinter
stDocName = ActiveDocument
Application.ActivePrinter = "HP Color LaserJet CP3505"
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
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterUpperBin '
.OtherPagesTray = wdPrinterUpperBin '
End With
'frmDrucken.Show'
'stellt die Einstellungen des Druckers zurück
ActivePrinter = strDrucker
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
End With
Application.ActivePrinter = strDrucker
End Sub
Du hast recht, unter Seite einrichten ist es falsch eingestellt. Was ist da denn die richtige Einstellung, damit er das beim Treiber eingestellte Fach nimmt?
Schon jetzt einmal Danke für deine Hilfe!
Gruß
Hansen
|