von Stephan » Di, 04.04.2006 19:03
Vielleicht kann mir ja jemand einen Tip geben.
Deinen Code zu sehen würde dafür schon Sinn machen, die eine Zeile ist nichtssagend wenn ich weder die übergebenen Eigenschaften/Parameter kenne und nicht weiß was ggf. konkret schief läuft, denn das:
ich keinen PDF Ausdruck machen kann.
kann ja Vieles heißen. (i.S. kommen Fehlermeldungen oder nicht, hängt sich das Programm auf etc.)
Obwohl Du nichts darüber schreibst nehme ich an das Du den Hidden-Parameter im Parameterarray der einen Zeile übergibst, oder doch soffice -invisible.
Andererseits ist es auch wieder egal da ich keine praktischen Erfahrungen mit Delphi/OOo habe. Bestätigen kann ich Dir das das Ganze als Makro prima läuft (OOo 2.0.1, W2k):
Code: Alles auswählen
Sub DateiVerstecktOeffnen
url=converttourl("C:\test.sxw")
dim myFileProp(0) as New com.sun.star.beans.PropertyValue
myFileProp(0).name="Hidden"
myFileProp(0).value=True
datei = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
URL = ConvertToURL(datei.URL)
Dim arg(0) As new com.sun.star.beans.PropertyValue
datei_url = Left(URL, Len(URL)- 4) + ".pdf"
URL = ConvertToURL(datei_url)
arg(0).Name = "FilterName"
arg(0).Value = "writer_pdf_Export"
datei.storeToURL(URL, arg())
datei.close(True)
end sub
Gruß
Stephan
[quote]Vielleicht kann mir ja jemand einen Tip geben.[/quote]
Deinen Code zu sehen würde dafür schon Sinn machen, die eine Zeile ist nichtssagend wenn ich weder die übergebenen Eigenschaften/Parameter kenne und nicht weiß was ggf. konkret schief läuft, denn das:
[quote]ich keinen PDF Ausdruck machen kann. [/quote]
kann ja Vieles heißen. (i.S. kommen Fehlermeldungen oder nicht, hängt sich das Programm auf etc.)
Obwohl Du nichts darüber schreibst nehme ich an das Du den Hidden-Parameter im Parameterarray der einen Zeile übergibst, oder doch soffice -invisible.
Andererseits ist es auch wieder egal da ich keine praktischen Erfahrungen mit Delphi/OOo habe. Bestätigen kann ich Dir das das Ganze als Makro prima läuft (OOo 2.0.1, W2k):
[code]Sub DateiVerstecktOeffnen
url=converttourl("C:\test.sxw")
dim myFileProp(0) as New com.sun.star.beans.PropertyValue
myFileProp(0).name="Hidden"
myFileProp(0).value=True
datei = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )
URL = ConvertToURL(datei.URL)
Dim arg(0) As new com.sun.star.beans.PropertyValue
datei_url = Left(URL, Len(URL)- 4) + ".pdf"
URL = ConvertToURL(datei_url)
arg(0).Name = "FilterName"
arg(0).Value = "writer_pdf_Export"
datei.storeToURL(URL, arg())
datei.close(True)
end sub[/code]
Gruß
Stephan