Word Merge and Print

[labessade]

Hi all, not sure if I need to ask this in a Word forum but... I have the following code which creates a new WORD document from a mail merge WORD template (linked to a text file as data source - had problems/errors trying to link to Access query direct due to database having a password and we don't use workgroups). I have used late binding so it will work with any office version without requiring a library reference, we develop in Office 2010. This all works but I am trying to print automatically and the code I found for this (.ActiveDocument.PrintOut Background:=False) errors with 'object doesn't support this property or method'. What am I doing wrong please? Thanks

With WdApp
.DisplayAlerts = False
.Application.Visible = True
Set wdDoc = .Documents.Open(FileName:=strMainDocNm)
With wdDoc
With .MailMerge


.MainDocumentType = wdFormLetters
'OpenDataSource(Name, Format, ConfirmConversions, ReadOnly, LinkToSource, _
'AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, _
'WritePasswordDocument, WritePasswordTemplate, Connection, _
'SQLStatement, SQLStatement1, OpenExclusive, SubType)
.OpenDataSource Name:=strDataDocNm, LinkToSource:=True
.Destination = wdSendToNewDocument ' wdSendToPrinter (prints only)
.Execute
.ActiveDocument.PrintOut Background:=False
'.SaveAs SaveFolderPath & "\" & FirstLetter & "\MailMerge.doc"
.Close SaveChanges:=False
End With
End With
'.Application.Quit SaveChanges:=False
End With

[June7]

A stab in the dark because never done mail merge. Possibly because ActiveDocument nested in the With .MailMerge and maybe should be outside that group under With wdDoc. Same for SaveAs and Close.

[labessade]

A stab in the dark because never done mail merge. Possibly because ActiveDocument nested in the With .MailMerge and maybe should be outside that group under With wdDoc. Same for SaveAs and Close.

Thanks for suggesting this, it does now work without errors and prints BUT - it prints the template rather than the new document created with the merged data.... ?

[June7]

Google: Access vba Word merge print

Found http://p2p.wrox.com/access-vba/30118...utomation.html:

which shows:

With objApp
.ActiveDocument.MailMerge.Execute Pause:=True
.ActiveDocument.PrintOut Background:=False
.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'Avoid Saving over your template
.Quit SaveChanges:=wdDoNotSaveChanges 'close all documents
End With

[labessade]

Thanks June7, got this working now although I do get a strange error.... after the code has run it produces a MS Access error which just states 'Permission Denied' and an OK button. I have put a breakpoint in to see where the error occurs but if I do that it doesn't error!! Everything seems to work as it should so I am not sure why the error occurs and how to stop it

[June7]

Comment out the Close and Quit lines. Does the error still occur? Maybe only need the Quit line.