MailMerge - Datensatz od. Range definieren
Verfasst: Mi, 11.03.2009 10:08
Hallo
Im Serienbrief Assistenten kann man den Datensatz auswählen, den man drucken möchte. Dasselbe müsste via Macro auch möglich sein, indem der MailMerge entsprechend konfiguriert wird. Welche(s) Attribut(e) des MailMerge muss man setzen, um einen Datensatz oder einen bestimmten Range zu definieren? Ich würde etwas in der Art
MailMerge.RecordsetFrom = 5
MailMerge.RecordsetTo = 10
erwarten.
Weiter Frage: Gibt es eine OnlineDokumentation über MailMerge, wo dieser und seine Parameter ausführlich beschrieben sind?
Weiter Frage: Auch MSOffice nutzt MailMerge. Ist MailMerge von Office == MailMerge von OO?
Herzlichen Dank für Hilfe
Sub OffertDruck
Dim strDBName as String, qry as String
Dim DateipfadSB1 as string 'Pfad Serienbriefvorlag
Dim DateipfadLBP1 as string 'Pfad Ausgabedokumnet
strDBName="MeineDB"
DateipfadSB1="E:\01_VORLAGEN\MeineVorlage.ott"
DateipfadLBP1="E:\02_DOCS"
qry="qry_MeineAbfrage"
MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.DataSourceName=strDBName
MailMerge.DocumentURL=ConvertToUrl(DateipfadSB1)
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)
MailMerge.CommandType=com.sun.star.sdb.CommandType.QUERY
MailMerge.Command=qry
MailMerge.CommandType=1
MailMerge.OutputType=com.sun.star.text.MailMergeType.FILE
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)
Dim MyProps()
MailMerge.execute(MyProps())
End Sub
Im Serienbrief Assistenten kann man den Datensatz auswählen, den man drucken möchte. Dasselbe müsste via Macro auch möglich sein, indem der MailMerge entsprechend konfiguriert wird. Welche(s) Attribut(e) des MailMerge muss man setzen, um einen Datensatz oder einen bestimmten Range zu definieren? Ich würde etwas in der Art
MailMerge.RecordsetFrom = 5
MailMerge.RecordsetTo = 10
erwarten.
Weiter Frage: Gibt es eine OnlineDokumentation über MailMerge, wo dieser und seine Parameter ausführlich beschrieben sind?
Weiter Frage: Auch MSOffice nutzt MailMerge. Ist MailMerge von Office == MailMerge von OO?
Herzlichen Dank für Hilfe

Sub OffertDruck
Dim strDBName as String, qry as String
Dim DateipfadSB1 as string 'Pfad Serienbriefvorlag
Dim DateipfadLBP1 as string 'Pfad Ausgabedokumnet
strDBName="MeineDB"
DateipfadSB1="E:\01_VORLAGEN\MeineVorlage.ott"
DateipfadLBP1="E:\02_DOCS"
qry="qry_MeineAbfrage"
MailMerge = createunoservice("com.sun.star.text.MailMerge")
MailMerge.DataSourceName=strDBName
MailMerge.DocumentURL=ConvertToUrl(DateipfadSB1)
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)
MailMerge.CommandType=com.sun.star.sdb.CommandType.QUERY
MailMerge.Command=qry
MailMerge.CommandType=1
MailMerge.OutputType=com.sun.star.text.MailMergeType.FILE
MailMerge.OutputUrl=ConvertToUrl(DateipfadLBP1)
Dim MyProps()
MailMerge.execute(MyProps())
End Sub