Makro für Seiteneinstellungen und drucken
Verfasst: Mi 6. Apr 2011, 11:19
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.
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.