PDF Export, Name aus Zelle verwenden

[jemo]

Hallo zusammen,

Da ich mit der Makroprogrammierung 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

[bst]

Hi,

versuche das mal so.

HTH, Bernd
--

Code: Alles auswählen

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

Sub Main
	dim objSheet as object
	dim document as object
	dim dispatcher as object

	objSheet = ThisComponent.CurrentController.ActiveSheet
	document = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	dim args1(2) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "URL"
	args1(0).Value = ConvertToUrl(objSheet.getCellByPosition(5,48).String)
	args1(1).Name = "FilterName"
	args1(1).Value = "calc_pdf_Export"
	args1(2).Name = "FilterData"
	args1(2).Value = Array(Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),...

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