Sub DruckerauswahlAM()
'
' Druckerauswahl Makro
'
Dim strDrucker As String
 
 
Rem ####################### Zuweisen der Variablen den Druckerinternen Fach-Ids _
  #########
Fach2 = 3
Fach3 = 2
 
Application.ActivePrinter = "\\einServer\einDrucker"
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
ActiveDocument.PageSetup.FirstPageTray = Fach2
ActiveDocument.PageSetup.OtherPagesTray = Fach2
       stellt die Einstellungen des Druckers zurück
        ActivePrinter = strDrucker
        With ActiveDocument.PageSetup
           .FirstPageTray = wdPrinterAutomaticSheetFeed
          .OtherPagesTray = wdPrinterAutomaticSheetFeed
        End With
ActiveDocument.PrintOut
 
End Sub