Mit VB einen Word-Seriendruck

Computer: Software & Programmierung Visual Basic
#1

Wie kann ich mit VB ein Word-Dokument laden und dann einen Seriendruck erzeugen?

Danke für die Antwort.

mfg.

VBFreak

#2

Hallo VBFreak.

Du erstellst das Seriendruckdokument mit Datenquelle und so…

Und mit diesem Code kannst du dann drucken:

Function fncWordSerienDruck()
Dim objWordControl As Object
Dim strDocument As String
Dim strPath As String
Set objWordControl = CreateObject(„Word.Application“)
strPath = „C:\DeinPfad“
strDocument = „DeinDokument.doc“
objWordControl.Documents.Open strPath & strAktuellesDoc
objWordControl.Documents(strAktuellesDoc).Activate
objWordControl.ActiveDocument.MailMerge.Destination = 0
objWordControl.ActiveDocument.MailMerge.Execute
objWordControl.Options.PrintFieldCodes = False
objWordControl.ActiveDocument.PrintOut Background:=False
objWordControl.ActiveDocument.Close SaveChanges:=0
objWordControl.ActiveDocument.Close SaveChanges:=0
objWordControl.Quit
End Function

…funktioniert bei mir wunderbar.

Gruß
Chris

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]