Per VBA die Papierfächer eines Druckers zuweisen

Private Sub ProDruSSSB()
'Ausdruck umstellen  
'Erste Seite aus oberem Fach, alle anderen aus dem Standardfach des Druckers  
With ActiveDocument.PageSetup
    .FirstPageTray = wdPrinterUpperBin
    .OtherPagesTray = wdPrinterDefaultBin
End With

Do While numKopien > 0
    'aktives Dokument drucken  
    Dim bOption As Boolean
    bOption = Options.WarnBeforeSavingPrintingSendingMarkup
    Options.WarnBeforeSavingPrintingSendingMarkup = False
    Application.PrintOut Range:=wdPrintAllDocument, _
        Item:=wdPrintDocumentContent, Copies:=1
    Options.WarnBeforeSavingPrintingSendingMarkup = bOption
    'ActiveDocument.PrintOut Copies:=1  

    numKopien = numKopien - 1
    frmProDruSS.Label6.Caption = numKopien
    frmProDruSS.Label5.Caption = "ACHTUNG: Kopienzähler läuft rückwärts und zeigt jetzt die noch zu fertigenden Kopien an. Dieses Fenster schließt sich selbsttätig. Bitte haben Sie einen Moment Geduld."  
    DoEvents
Loop

'Fachzuweisung wieder aufheben  
With ActiveDocument.PageSetup
  .FirstPageTray = wdPrinterDefaultBin
  .OtherPagesTray = wdPrinterDefaultBin
End With
End Sub