PDF Export, Name aus Zelle verwenden

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: PDF Export, Name aus Zelle verwenden

Re: PDF Export, Name aus Zelle verwenden

von bst » Do, 30.09.2010 11:50

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

PDF Export, Name aus Zelle verwenden

von jemo » Do, 30.09.2010 11:22

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

Nach oben