LibreOffice-Forum

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ß??? Danke schon mal im vorraus. Socke

rem-----------------------------------------------------------------------
rem ----------------RECHNUNG 1 Fach mit Überweisung drucken---------------
sub Rechnung_3Fach_Ueberweisung
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
dim odocument as object
DIM oWriterDoc AS Object
oWriterDoc = ThisComponent
pages = oWriterDoc.CurrentController.PageCount
rem ----------------------------------------------------------------------
rem define variables für Kopientext
Dim Var as String
Dim oTextfieldMaster As Object
Dim oPropSet as Object
Dim oDependentTextFields as Object
Dim oXDependentTextField as Object
Dim oTextFields as Object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
odocument = ThisComponent
rem ----------------------------------------------------------------------
rem ----------------------------------------------------------------------
rem ---------Drucken Rechnungsformular ohne letzte Seite (Überweisungsträger)--
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Printer"
args5(0).Value = "Drucker Formular"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(2) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Copies"
args6(0).Value = 1
args6(1).Name = "Collate"
args6(1).Value = true
args6(2).Name= "Pages"
args6(2).Value= "1-" & Str(pages - 1)
oWriterDoc.print(args6())
wait 1200
rem ------------------------------------------------------------------
rem ---------Drucken nur letze Seite auf Überweisung-------------
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())
rem ----------------SPEICHERN------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
end sub