Re: PDF Datei aus Datenbank erzeugen
Verfasst: So, 27.11.2011 14:32
Unter LibreOffice 3.4.4 (ungetestet) siehe Abbildung:
deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
Code: Alles auswählen
StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties0())
MailMerge = createunoservice("com.sun.star.text.MailMerge")
Code: Alles auswählen
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
Datenquelle = DatabaseContext.getByName(oComponent.getLocation())'Hier wird der aktuelle Datenbankname ermittelt
Verbindung = Datenquelle.GetConnection("","")
SQL_Anweisung = Verbindung.createStatement()
Sql_Abfrage=SQL_Anweisung.executeQuery("select ""VORNAME"", ""NACHNAME"" from ""Tabelle"" where ""Rechnung drucken""= true")
Code: Alles auswählen
myTables = createunoservice("com.sun.star.text.TextTables")
myTables = document.getTextTables
myTable = createunoservice("com.sun.star.text.TextTable")
myRow = createunoservice("com.sun.star.text.TextTableRow")
myTable = myTables.getByName("Tabellenname")
Code: Alles auswählen
odoc = thisComponent
otext=oDoc.Text
ocursor=otext.createTextCursor()
Code: Alles auswählen
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
args1(0).Name = "URL"
args1(0).Value = "Pfad zur Datei.pdf"
args1(1).Name = "FilterName"
args1(1).Value = "writer_pdf_Export"
dispatcher.executeDispatch(document_loadet, ".uno:ExportDirectToPDF", "", 0, args1())