Forums Neueste Beiträge
 

Seriendruck mit Word 2003

16/10/2007 - 17:36 von Markus Espenhain | Report spam
Hallo zusammen,

habe ein Problem mit dem Seriendruck.
Wegen der Access-Runtime bin ich bei Access auf A00 festgelegt.
Momentan benutze ich Word2000 um den Seriendruck zu starten.
Da wird der Druckdialog auch beim "wdSendToprinter" korrekt aufgerufen.
Nun habe ich den Verweis auf die OLB von Word 2003 gesetzt und der
Druckdialog kommt nicht mehr. Nach einigen Recherchen ist das wohl in
2003 so bewusst gemacht. Leider benötige ich den Druckdialog wieder.

Insofern habe ich den Code leicht modifiziert. Dieser sieht nun so aus:

Set db = Application.CurrentDb
Set WWapp = CreateObject("Word.Application")
WWapp.Visible = True
Set WWDOC = WWapp.Documents.Open("datei.doc")
With WWDOC
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource name:="datenquelle.txt"
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute
End With

WWapp.Dialogs(wdDialogFilePrint).Show
ActiveDocument.Close SaveChanges:=False

WWDOC.Close False
WWapp.Quit False

Der Druckdialog kommt nun wieder, aber der Drucker fàngt nicht an zu
drucken. Ein Problem mit dem Drucker ist es nicht.
Ich muss entweder Tomaten auf den Augen haben, oder ich mache etwas falsch.

Hat jemand eine Idee?

Danke + Gruß

Markus
 

Lesen sie die antworten

#1 Thomas Möller
16/10/2007 - 19:05 | Warnen spam
Hallo Markus,

Markus Espenhain schrieb:
Set db = Application.CurrentDb
Set WWapp = CreateObject("Word.Application")
WWapp.Visible = True
Set WWDOC = WWapp.Documents.Open("datei.doc")
With WWDOC
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource name:="datenquelle.txt"
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute
End With

WWapp.Dialogs(wdDialogFilePrint).Show
ActiveDocument.Close SaveChanges:=False

WWDOC.Close False
WWapp.Quit False

Der Druckdialog kommt nun wieder, aber der Drucker fàngt nicht an zu
drucken. Ein Problem mit dem Drucker ist es nicht.



so wie ich Deinen Code verstehe, sorgt der Befehl

WWapp.Dialogs(wdDialogFilePrint).Show

nur dafür, dass der Druckdialog angezeigt wird. Einen Befehl zum Drucken
sehe ich da nirgends. Direkt im Anschluss wird das Dokument geschlossen.

CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen