OpenOffice.info

OK, Danke für den Hinweis.

Wende dich mit deinem Anliegen bitte bitte an das zuständige Forum OOo Basic und Java.

Gruß
lorbass

Hallo zusammen,

Da ich mit der Mkroprogrammierung nicht klar komme, habe ich gedachtg ich wende mich mal an dieses Forum.
Ich habe ein Datenblatt, welches ich als PDF exportiere (siehe unten aufgezeichnetes Makro)

Ich würde ger in Zelle B1 einen Namen eintragen und so sollte dann die PDF datei heissen.
Im folgenden Makro wird Sie nun immer "fm_export.pdf" genannt.

Wäre für jede Hilfe dankbar

Gruss
jemo

REM ***** BASIC *****


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 ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/fm_export.pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("UseLosslessCompression",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Quality",0,90,com.sun.star.beans.PropertyState. usw.....

dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$F$49"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())


end sub