OpenOffice.info

Code: Alles auswählen

sub Main1
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Name"
args1(0).Value = "Tabelle2"
args1(1).Name = "Index"
args1(1).Value = 2

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

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Nr"
args2(0).Value = 1

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 2

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
Main2
end sub

Sub Main2
dim document   as object
dim dispatcher as object
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 = "file:///C:/.../Test.PDF" 'BEI ... Hier entsprechenden Pfad angeben zb. Dokumente und Einstellungen/USERNAME/Eigene Dateien
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "SelectionOnly"
args1(2).Value = true
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
Main3
end sub

Sub Main3
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Remove", "", 0, Array())
end sub

Code: Alles auswählen

sub btn_print_ok
	dim o_sheets as object
	dim o_file as object
	dim doc   as object
	dim dispatcher as object
	
	o_file 		= thiscomponent
	o_sheets	= o_file.sheets
	doc		   	= o_file.CurrentController.Frame	
	dispatcher 	= createUnoService("com.sun.star.frame.DispatchHelper")

	if o_sheets.getbyname("Einstellungen").isvisible = true then
		o_sheets.getbyname("Einstellungen").isvisible = false
	end if

	dim args(2) as new com.sun.star.beans.PropertyValue
	args(0).Name = "URL"
	args(0).Value = "file:///X:/ORDNER/" & year(now()) & "/" & format(now(),"yyyy-mm") & ".pdf"
	args(1).Name = "FilterName"
	args(1).Value = "calc_pdf_Export"
	args(2).Name = "Overwrite"
	args(2).Value = True

	dispatcher.executeDispatch(doc, ".uno:ExportDirectToPDF", "", 0, args())

	if o_sheets.getbyname("Einstellungen").isvisible = false then
		o_sheets.getbyname("Einstellungen").isvisible = true
	end if	
end sub