> 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.
You probably need
objWord.Quit after the close.
Peter Jamieson
"olgaz" <olgaz@discussions.microsoft.com> wrote in message
news:D765474A-BD1D-47E2-A4F4-7D02FD4FA574@microsoft.com...
It's not working!!!!!!!!!!!!!!!!!!
Doug Robbins - Word MVP - 01 Jul 2007 08:05 GMT
Ater this line of code, insert
objWord.Application.ActiveDocument.PrintOut
objWord.Application.ActiveDocument.Close wdDoNotSaveChanges
Actually, I do not know why you have introduced the Application in that line
of code, so you probably only need:
objWord.ActiveDocument.PrintOut
objWord.ActiveDocument.Close wdDoNotSaveChanges

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
>> Hello,
>>
[quoted text clipped - 44 lines]
>
> It's not working!!!!!!!!!!!!!!!!!!