HP LaserJet 2055dn - Papierfächer VBA PCL 5

Hallo,

ich suche für den HP LaserJet 2055dn die Anweisung für Word, welche die Papierfächer bestimmt.

Bei den vorgänger Modellen waren es Anweisung im VB wie z.B.

--wdPrinterAutomaticSheetFeed
--wdPrinterDefaultBin
--wdPrinterEnvelopeFeed
--wdPrinterFormSource
--wdPrinterLargeCapacityBin
--wdPrinterLargeFormatBin
--wdPrinterLowerBin
--wdPrinterManualBin
--wdPrinterMiddleBin
--wdPrinterOnlyBin
--wdPrinterPaperCassette
--wdPrinterSmallFormatBin
--wdPrinterTractorFeed
--wdPrinterUpperBin

Damit hat man die Papierschächte ausgewählt.

Ich würde nun gern wissen, wie ich dem HP LaserJet 2055dn per VBA Makro/Skript im Word das passende Papierfach mitgeben kann.

So sah der Code bei den alten Druckern aus:

Sub Fach1()
'  
' Fach 1 Makro  
'  
    With ActiveDocument.PageSetup
        .FirstPageTray = wdPrinterPaperCassette
        .OtherPagesTray = wdPrinterPaperCassette
    End With
    ActiveDocument.PrintOut
End Sub
Sub Fach2()
'  
' Fach 2 Makro  
'  
    With ActiveDocument.PageSetup
        .FirstPageTray = wdPrinterMiddleBin
        .OtherPagesTray = wdPrinterMiddleBin
    End With
    ActiveDocument.PrintOut
End Sub


Sub Seite1()
'  
' Unten Makro  
'  
    With ActiveDocument.PageSetup
        .FirstPageTray = wdPrinterMiddleBin
         .OtherPagesTray = wdPrinterLowerBin
    End With
    
    ActiveDocument.PrintOut
End Sub

Kann wer helfen?

Grüße