OpenOffice.info

Hallo,
ich weiss, dass war schon Thema, aber es klappt dennoch nicht...

Ich möchte in Base im Formular "MainForm" ein Makro starten, welches die Serienbriefvorlage "Zeugnisse.odt" aufruft und unter Verwendung der Abfrage "Abfrage_Zeugnisse" druckt.

Die DB und der Serienbrief über Abfragen funktionieren manuel super, aber mit dem Makro scheiter ich.
Als Hilfe habe ich mich hier orientiert: viewtopic.php?f=8&t=46062

Also:
base Datei: Schule.odb
Abfragetabelle: Zeugnisse 2010-2011
registrierte DB: Schule-mysql 2010/2011

Datenbank mit MySql auf lokahost, Name: Schule
Benutzer: root
Passwort: root
Formular: MainForm
Writervorlage: Zeugnissvorlage.odt


(Wäre toll wenn ich noch vor den Schulferien die Zeugnisse fertig habe, obwohl manches Kind darauf verzichten würde )

ddraht

mac usr

Hi,

habs nun selber geschafft. Und läuft auf meinem Mac.

sub Zeugnisse_drucken

sDatabaseName = "Schule-mysql 2010/2011" 'Name der registrierten Datenbank
sFileName = "Zeugnisvorlage.odt" 'Name der Vorlage
Globalscope.BasicLibraries.loadLibrary("Tools")
oDBContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDatasource = oDBContext.getByName(sDatabaseName)
sDBUrl = DirectoryNameoutofPath(oDatasource.DatabaseDocument.URL,"/")
sFileURL = ConvertToURL(sDBUrl & "/" & sFileName)
MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.DataSourceName=sDatabaseName
MailMerge.DocumentURL=sFileURL
MailMerge.CommandType=1
MailMerge.Command= "Zeugnisse 2010-2011"
MailMerge.OutputType=1
'MailMerge.OutputUrl=Converttourl("/")
'MailMerge.FileNameFromColumn=True
'MailMerge.FileNamePrefix="Speichername"

Dim MyProps() as Object
MailMerge.execute(MyProps())

end sub