mailmerge with VBA using ACCESS 2000

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

olgaz - 25 Jun 2007 09:18 GMT

Hello,

This is my routine code:

> Public Sub fmailmerge(myskey As String)
> Dim objWord As Word.Document
> Dim strMergeDoc, str, str2 As String
> Dim mystudy As Variant
>
> Set objWord = GetObject(strMergeDoc, "Word.Document")
> objWord.Application.Visible = False
> objWord.MailMerge.OpenDataSource
> "\\fserver-xp\fshare\Pidu\StudysDocuments\EpiPneumo\Stikers.mdb", , , , True,
> , , , , , , "QUERY CasesToday", "Select * from CasesToday where skey = '" &
> myskey & "'"
> objWord.MailMerge.Destination = wdSendToNewDocument

The important thing is:

> objWord.MailMerge.Execute
> objWord.Application.Options.PrintBackground = False
> objWord.PageSetup.FirstPageTray = wdPrinterAutomaticSheetFeed
> objWord.PageSetup.OtherPagesTray = wdPrinterAutomaticSheetFeed
> objWord.Application.ActiveDocument.PrintOut

I do not ask to save anything and I close Word:

> objWord.Close (wdDoNotSaveChanges)
> Set objWord = Nothing
> End Sub

The program works well and the document can be printed. However, when login
again, on the same computer, and opening Word, all those documents open
automatically under the title recovered.
How can I prevent this from happening each time?

Thank you.

Reply to this Message

Peter Jamieson - 25 Jun 2007 09:43 GMT

You probably need

objWord.Quit after the close.

Peter Jamieson

> Hello,
>
[quoted text clipped - 36 lines]
>
> Thank you.

Reply to this Message