Hallo Diego,
die Druckereigenschaften lassen sich auch über Objekte steuern...
Sub Druckerauswahl()
'
' Druckerauswahl Makro
'
Dim strDrucker As String
Dim strDocName As String
Dim strFilter As String
strDrucker = Application.ActivePrinter
strDocName = ActiveDocument
Application.ActivePrinter = "DEIN_DRUCKERNAME" '''z. B.: "TRUCK"
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
' Wenn es noch ein bestimmtes Papierfach sein sollte, z. B. Fach 3
With ActiveDocument.PageSetup
.FirstPageTray = wdPrinterMiddleBin ' Fach 3
.OtherPagesTray = wdPrinterMiddleBin ' Fach 3
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
Gruß Detlev
|