3
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 119141
Url: https://administrator.de/contentid/119141
Printed on: April 25, 2024 at 05:04 o'clock
3 Comments
Latest comment
Hi,
eine andere variante wäre, es über ein VBScript zu lösen.
Grüße,
Stefan
eine andere variante wäre, es über ein VBScript zu lösen.
Grüße,
Stefan
Moin Stefan
wie sehe denn diese Variante aus?
Kenn mich garnicht mit VB aus.
Gruß
Christian
wie sehe denn diese Variante aus?
Kenn mich garnicht mit VB aus.
Gruß
Christian
Moin,
hier bissle vb code.. ungetestet
hier bissle vb code.. ungetestet
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
