Aus Word mit ESC Steuerbefehlen aus 3 Schächten drucken

Moin Moin


habe folgendes Problem,

Ein Kunde druckt Dokumente mit 3 und auch mehr Seiten.
Er möchte die erste Seite aus Fach 2, die Zweite Seite aus Fach 3 und alle folgenden aus Fach 1 Drucken.
Der Drucker ist PCL5 fähig.
Diese Drucke werden aus Word gedruckt, dort kann man aber nur für zwei Seiten verschiedene Schächte definieren.

Gibt es eine Möglichkeit ESC Befehlen z.B &l4H in einem Word Dokument auf Seite 1, so zuhinterlegen, das der Druckertreiber den Befehl auch versteht.
Es gibt Software umsolche Druckströme auszulesen und dann der entsprechen Kassette zuzuweisen die kostet aber richtiges Geld.


Vielen Dank Christian

Sub printit()

sPrinterName = "Druckername hier eingeben"
lTray1 = wdPrinterUpperBin
lTray2 = wdPrinterMiddleBin
lTray3 = wdPrinterLowerBin

ThisDocument.PageSetup.FirstPageTray = lTray1
ThisDocument.PageSetup.OtherPagesTray = lTray1
ThisDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"


ThisDocument.PageSetup.FirstPageTray = lTray2
ThisDocument.PageSetup.OtherPagesTray = lTray2
ThisDocument.PrintOut Range:=wdPrintFromTo, From:="2", To:="2"

ThisDocument.PageSetup.FirstPageTray = lTray3
ThisDocument.PageSetup.OtherPagesTray = lTray3
ThisDocument.PrintOut Range:=wdPrintFromTo, From:="3", To:="3"

End Sub