Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Serienbrief -> drucken
Autor: PGroener
Datum: 02.01.21 13:43
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? Grüsse Peter Meine SUB sieht wie folgt aus: 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

Serienbrief -> drucken	965	PGroener	02.01.21 13:43
Re: Serienbrief -> drucken	611	Souffleurlos	05.01.21 16:10
Re: Serienbrief -> drucken	640	PGroener	05.01.21 18:00
Re: Serienbrief -> drucken--> gelöst	623	PGroener	07.01.21 12:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen