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

Re: Serienbrief -> drucken
Autor: Souffleurlos
Datum: 05.01.21 16:10
Hallo, nach mehrfachem Durchlesen vermisse ich eine Methode an das gerade ActiveDocument, dass es ausgedruckt werden soll. Also irgendwas mit Print.

Re: Serienbrief -> drucken
Autor: PGroener
Datum: 05.01.21 18:00
Hallo Souffleurlos, danke für die Antwort. Das mailmerge-Objekt lenkt mit .Destination = 1 '= wdSendToNewDocument die Ausgabe wie hier an den (Standard-)Drucker. Möglich sind auch andere Ausgabeformate (z.B. email...). Ein weiterer Druckbefehl ist nicht erforderlich. Obwohl .Destination = wdSendToNewDocument auf den Drucker zeigt, kommt nix an. In WORD funktionierts... Grüssle

Re: Serienbrief -> drucken--> gelöst
Autor: PGroener
Datum: 07.01.21 12:55
Der "Fehler" liegt in den Definitionen: .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord die zwar in Word aber nicht in VB6 vorkommen. Danke aber für eure Mithilfe. Gruss PG

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