Code: Alles auswählen
Sub printBill_Create(oDatasource as object, sFilepath as string, sFilename as string)
MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.ActiveConnection = thisComponent.Parent.CurrentController.activeConnection
MailMerge.DataSourceName = oDatasource.Name
MailMerge.DocumentURL = converttourl(sFilepath & "/" & sFilename)
MailMerge.CommandType = com.sun.star.sdb.CommandType.TABLE
MailMerge.Command = "fibu.print_bkbill"
' MailMerge.Filter = "(re_datum = " & chr(39) & CDateToIso(Now) & chr(39) & ")"
MailMerge.Filter = "(re_datum = " & chr(39) & "20121107" & chr(39) & ")"
MailMerge.OutputType = com.sun.star.text.MailMergeType.FILE
MailMerge.SaveAsSingleFile = true
MailMerge.OutputUrl = converttourl(sFilepath & "/Druckausgabe")
MailMerge.FileNameFromColumn = false
MailMerge.FileNamePrefix = "Rechnungen"
MailMerge.execute(Array())
rem erzeugte Druckausgabe sofort öffnen zur manuellen Überprüfung
url = converttourl(sFilepath & "/Druckausgabe/Rechnungen0.odt")
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, Array() )
End Sub
Bevor ich eine Beispieldatei erstelle, wäre es schön, ob ich Hinweise auf eine falsche oder fehlende Einstellung oder zur Fehlersuche bekommen könnte. Danke! Jürgen