OpenOffice.info

sub Main
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())


end sub

sub Main
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:Print", "", 0, Array())


end sub

[quote]Meine Frage ist nun: Gibt es eine Möglichkeit, dass ich Open Office mit dem entsprechenden Befehl hinterlege, so dass bei Ausführung die Datei im Writer direkt mit dem Druckdialog geöffnet wird?[/quote]

Du kannst ein Makro starten das das erledigt.
Wähle in OpenOffice.org (nicht "Open Office") Extras-Makros-Makro aufzeichnen, wähle Datei-Drucken und speichere nun das Makro und bricht danach den Druckdialog ab, das gibt:

[code]sub Main
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())


end sub[/code]

entferne das "rem" vor der dispatcherzeile:

[code]sub Main
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:Print", "", 0, Array())


end sub[/code]


Wähle in OOo im Menü Extras-Anpassen-Ereignisse und weise das obiger Makro dem Ereignis "Dokument öffnen" zu.


Gruß
Stephan

Tach zusammen,

Ich nutze eine Warenwirtschft, mit der ich Dokumente generiere. Die Warenwirtschaft erzeugt die Dokumente dabei intern mit dynamischem Namen.
Für die Ausgabe der Dokumente kann ich für jede Dateiart, z.B. .odt, ein Programm mit der jeweiligen Befehlszeile zum Drucken hinterlegen.

Meine Frage ist nun: Gibt es eine Möglichkeit, dass ich Open Office mit dem entsprechenden Befehl hinterlege, so dass bei Ausführung die Datei im Writer direkt mit dem Druckdialog geöffnet wird?

Der Command "soffice.exe -pt "PrinterName" OpenOfficeFile" bringt mich nicht weiter, da der Dateiname wie gesagt dynamisch ist und ich den eigentlichen Drucker auch jedesmal selbst auswählen möchte.

Hat einer ne Idee?