Nur die letzte Seite Drucken
Verfasst: Mo 29. Aug 2011, 20:48
Hallo zusammen, ich habe ein Problem, ich möchte von einem Druckauftrag "nur die letzte Seite Drucken" da ich mit Unterschiedlichen Druckertreibern arbeite. Hierzu habe ich folgendes Macro bereits gefertigt. Hat jemand den Befehl welcher noch eingesetzt werden muß??? Für Hilfe wäre ich Dankbar. Grüße
rem ------------------------------------------------------------------
rem ---------Drucken nur letze Seite auf Überweisungsträger--
rem ------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Printer"
args7(0).Value = "Drucker Ueberweisung"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args7())
rem ----------------------------------------------------------------------
dim args8(2) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Copies"
args8(0).Value = 1
args8(1).Name = "Collate"
args8(1).Value = true
?????????Drucke nur die letzte Seite. Welcher Befehl kommt hier rein???????
dispatcher.executeDispatch(document, ".uno:print", "", 0, args8())
end sub

rem ------------------------------------------------------------------
rem ---------Drucken nur letze Seite auf Überweisungsträger--
rem ------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Printer"
args7(0).Value = "Drucker Ueberweisung"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args7())
rem ----------------------------------------------------------------------
dim args8(2) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Copies"
args8(0).Value = 1
args8(1).Name = "Collate"
args8(1).Value = true
?????????Drucke nur die letzte Seite. Welcher Befehl kommt hier rein???????
dispatcher.executeDispatch(document, ".uno:print", "", 0, args8())
end sub