🍀 Das LibreOffice Forum braucht HEUTE Ihre Hilfe! 🍀
❤️ Spenden Sie jetzt und sichern Sie die Zukunft unseres LibreOffice-Forums ❤️
Ihre Spende hilft, die Community offen, werbefrei (bei Registrierung) und lebendig zu halten. Vielen lieben Dank!

🙏 DANKE >> << DANKE 🙏

>> Das LibreOffice-Forum lebt von Ihnen – und von vielen Experten, die freiwillig und kostenlos ihr Wissen teilen.<<
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:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das laufende.
Einfach per Kreditkarte oder PayPal. Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.



❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten