Makro für Seiteneinstellungen und drucken

[kierspe]

Hallo,

ich habe mir einen Kopfbogen als Vorlage im Writer erstellt. Die vorgedrucken Kopfbögen liegen in einem Großkopierer in einem speziellen Fach. Die erste Seite der Kopfbogenvorlage soll immer aus diesem Druckerfach gezogen werden. Wenn aber mehrere Seiten benötigt werden (was nicht immer der Fall ist), sollen diese aus einem anderen Druckerfach gedruckt werden (in dem weißes Papier liegt). Für die Auswahl der unterschiedlichen Druckerfächer habe ich im vorhinein eine Seitenvorlage erstellt.


Wir haben es über ein Makro versucht zu lösen. Leider funktioniert es nicht richtig.

sub druck1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageDialog", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageDialog", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())


end sub

Was ist mein Fehler?

Danke.

[pmoegenb]

Das Stichwort heißt Seitenvorlagen siehe http://www.ooowiki.de/SeitenVorlagen?hi ... bearbeiten.

Damit kannst Du Dein Problem ohne Makro lösen.