Guten Tag zusammen,
und ein gutes Neues Jahr.
Ich muss einem bestehenden Prg. (VB6 Sp6) eine Serienbrieffunktion hinzufügen.
Das Hauptdokument ist in Word 2010 erstellt, die Datenbank in Access 2010 ebenso.
Unter Word funktioniert der Ablauf tadellos! Ebenso der Ausdruck.
Unter VB6 läuft das Prg. fehlerfrei ab, (Word wird gestartet, das
DOC geöffnet, neues DOC erzeugt...) allerdings wird KEIN AUSDRUCK
ERZEUGT!
Wo liegt mein Denkfehler? Ich krieg das Ding nicht zum Drucken!
Grüsse
Peter
Meine SUB sieht wie folgt aus:
CodeTags gesetzt ~VaporiZed
und ein gutes Neues Jahr.
Ich muss einem bestehenden Prg. (VB6 Sp6) eine Serienbrieffunktion hinzufügen.
Das Hauptdokument ist in Word 2010 erstellt, die Datenbank in Access 2010 ebenso.
Unter Word funktioniert der Ablauf tadellos! Ebenso der Ausdruck.
Unter VB6 läuft das Prg. fehlerfrei ab, (Word wird gestartet, das
DOC geöffnet, neues DOC erzeugt...) allerdings wird KEIN AUSDRUCK
ERZEUGT!
Wo liegt mein Denkfehler? Ich krieg das Ding nicht zum Drucken!
Grüsse
Peter
Meine SUB sieht wie folgt aus:
Visual Basic-Quellcode
- Private Sub XX()
- Dim swordfilename As String
- swordfilename = "E:\....\rech_kal.docx"
- Dim wApp As Object ' Word-Objekt Variable definieren und erzeugen
- Set wApp = CreateObject("Word.Application.14") 'VERWEIS auf WORD ist in VB gesetzt!
- With wApp
- .Application.Visible = True ' Word anzeigen
- .Application.Activate
- .Documents.Open swordfilename ' Word-Dokument laden und anzeigen
- .Documents(swordfilename).Activate
- .ActiveDocument.MailMerge.OpenDataSource Name:="E:\...\zeilendb.mdb", SQLStatement:="SELECT * FROM [puffer]"
- With .ActiveDocument.MailMerge
- With .DataSource
- .FirstRecord = wdDefaultFirstRecord
- .LastRecord = wdDefaultLastRecord
- End With
- .SuppressBlankLines = True
- .Execute ' Pause:=False
- .Destination = 1 '= wdSendToNewDocument
- End With
- End With
- ' nach getaner Arbeit, Word wieder beenden
- wApp.ActiveDocument.Saved = True
- wApp.NormalTemplate.Saved = True
- wApp.Application.Quit savechanges:=wdDoNotSaveChanges
- Set wApp = Nothing
- End Sub
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()