🙏 Helfen Sie jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Nur die letzte Seite Drucken

Alles zur Programmierung im LibreOffice.
Antworten
socke
Beiträge: 5
Registriert: Do 31. Mär 2011, 21:30

Nur die letzte Seite Drucken

Beitrag von socke » 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 :roll:

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

komma4
Beiträge: 185
Registriert: Sa 13. Aug 2011, 10:01
Wohnort: Chonburi Thailand Asia
Kontaktdaten:

Re: Nur die letzte Seite Drucken

Beitrag von komma4 » Mo 29. Aug 2011, 21:59

socke hat geschrieben:Drucke nur die letzte Seite. Welcher Befehl kommt hier rein???????
Wenn das die Fortsetzung Deines anderen Makros ist

Code: Alles auswählen

args8(2).Name = "Pages"
args8(2).Value = pages
Cheers
Winfried
aktuell: openSuse 13.1 mit LO 4.3.7.2
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als Extension)


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten