Word Serienbrief

Das OCX Modul wird zunächst in ein Dokument (Serienbrief Hauptdokument) eingefügt

Der Ausdruck des Serienbriefs erfolgt nicht über den Seriendruckbefehl in Word, sondern über ein zu erstellendes Makro:

	Public Sub Seriendruck()    Dim i As Integer    Feldname = "PLZ"         'Das Barcode-Seriendruckfeld     ThisDocument.MailMerge.ViewMailMergeFieldCodes = False    For i = 1 To ThisDocument.MailMerge.DataSource.RecordCount   'Schleife für alle Datensätze der Steuerdatei      ThisDocument.MailMerge.DataSource.ActiveRecord = i      ThisDocument.Barcode1.Data = ThisDocument.MailMerge.DataSource.DataFields(Feldname).Value  'Zuweisung des Barcode-Dateninhalts      ThisDocument.PrintOut     'Jetzt aktuelle Seite ausdrucken    Next    ThisDocument.MailMerge.ViewMailMergeFieldCodes = True   End Sub

Den kompletten Quelltext der Prozedur enthält das mitgelieferte Beispieldokument.