OpenOffice.info

Option Explicit

dim document as object
dim dispatcher as object
dim args1(3) as new com.sun.star.beans.PropertyValue

dim sFilePickerArgs
dim auswahl
Dim antwort
dim tc As Object
dim pdf_datei As String


Sub Main
	tc = ThisComponent
	document   = tc.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	'Dateiauswahl
	sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
	auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
	With auswahl
		.initialize(sFilePickerArgs())
		.SetMultiselectionMode(False)
		.appendFilter("PDF-Dokument (pdf)", "*.pdf")
		.setDefaultName(tc.Title)
	End With
	antwort = auswahl.execute
	if antwort = 1 then
			pdf_datei = auswahl.Files(0)
		Else
			Exit Sub
	end if
	
	rem ----------------------------------------------------------------------
	
	args1(0).Name = "URL"
	args1(0).Value = pdf_datei
	args1(1).Name = "FilterName"
	args1(1).Value = "writer_pdf_Export"
	args1(2).Name = "FilterData"
	args1(2).Value = ""
	args1(3).Name = "SelectionOnly"
	args1(3).Value = false
	
	Dim x
	x = dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())
	
	If x.Result = False Then Exit Sub
	
	Wait 100
	
	Dim starten as object 
	starten = createUnoService("com.sun.star.system.SystemShellExecute") 
	starten.execute(ConvertToUrl(pdf_datei), "", 0)

End Sub

Wie schon mein Vorredner schreibt gibt es das in OO nicht.

Du kannst es per Makro ergänzen, z.B.:

[code]Option Explicit

dim document as object
dim dispatcher as object
dim args1(3) as new com.sun.star.beans.PropertyValue

dim sFilePickerArgs
dim auswahl
Dim antwort
dim tc As Object
dim pdf_datei As String


Sub Main
tc = ThisComponent
document = tc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

'Dateiauswahl
sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker")
With auswahl
.initialize(sFilePickerArgs())
.SetMultiselectionMode(False)
.appendFilter("PDF-Dokument (pdf)", "*.pdf")
.setDefaultName(tc.Title)
End With
antwort = auswahl.execute
if antwort = 1 then
pdf_datei = auswahl.Files(0)
Else
Exit Sub
end if

rem ----------------------------------------------------------------------

args1(0).Name = "URL"
args1(0).Value = pdf_datei
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = ""
args1(3).Name = "SelectionOnly"
args1(3).Value = false

Dim x
x = dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())

If x.Result = False Then Exit Sub

Wait 100

Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")
starten.execute(ConvertToUrl(pdf_datei), "", 0)

End Sub[/code]

Ich habe das mal in eine Extension gepackt, lade die angehängte Extension herungter und installiere sie in OO per Extensionmanager. Starte OO neu und Du hast nun im Datei-menü einen Eintrag namens "PDF-Export und Vorschau..."



Gruß
Stephan

Hallo Gerhard,
sicher das Du OpenOffice meinst und nicht LibreOffice, denn dort gibt es diese Einstellmöglichkeit in den PDF-Optionen.


[attachment=0]Bild-1 2020-11-29 13 54 29.png[/attachment]



Gruß
Peter

Der Adobe Acrobat Reader DC ist das Standartprogramm zum öffnen von PDF Dateien

Die von OO Clac in dem PDF Format exportierten Dateien werden nach Doppelklick im entsprechenden Ordner auch mit dem Reader geöffnet.

Vielleicht erkläre ich nochmal was ich möchte.

Ich exportiere ein odt Datei in einer PDF Datei, benenne die Datei abcde.PDF und speicher diese DPF Datei im vorgesehen Ordner.
Die Datei wird gespeichert und OO Calc in der Ansicht vor der Speicherung am Destop angezeigt.

Jetzt öffne ich im Explorer Order, die abcde.PDF Datei, die mir im Adobe Reader angezeigt wird.

Ich möchte das unmittelbar nach Speichern der abcde.PDF Datei diese im Reader geöffnet wird und im Vordergrund auf dem Destop angezeigt wird.

Wir haben vor einigen Jahren Betrieblich WIN mit OO und Adobe Reader genutzt und da war dieses Verhalten Standard

schöne Grüße
Gerhard

[quote=xg10 post_id=292625 time=1606489726 user_id=64845]
Das führt leider nicht zum gewünschten Erfolg.
Hatte ich so schon ausprobiert, muss aber weiterhin jede Datei im Explorer manuell mit dem Reader öffnen.

schöne Grüße
Gerhard
[/quote]

Hast Du gelesen das:
[i]
"In deinem Betriebssystem muss außerdem der Acrobat Reader als Standardanwendung für PDF-Öffnen festgelegt sein."[/i]

denn das ist der Kernpunkt, nicht die Einstellung beim PDF-Export, die ja nichts weiter bewirkt als das Links im PDF, die ja erst angeklickt werden können wenn das PDF geöffnet ist, wiederum im PDF-Betrachter geöffnet werden.


Gruß
Stephan

Das führt leider nicht zum gewünschten Erfolg.
Hatte ich so schon ausprobiert, muss aber weiterhin jede Datei im Explorer manuell mit dem Reader öffnen.

schöne Grüße
Gerhard

Hallo,

über Menü Datei... PDF-Export definieren. In deinem Betriebssystem muss außerdem der Acrobat Reader als Standardanwendung für PDF-Öffnen festgelegt sein.

[attachment=0]MitPDF-AnzeigeprogrammOeffnen.png[/attachment]

Hallo,

ich möchte wenn ich einen Export in PDF speicher, das sich diese PDF automatisch im Adobe Reader öffnet.

Was ist zu tun?

schöne Grüße

Gerhard