Printing a Word Document and Closing Word

[coolscan3]

I am trying to Open Word, Print a Document and then Close Word Using the Following Code

Private Sub Command0_Click()
Dim w As Object


Set w = CreateObject("word.application&quot
w.Visible = True
w.Documents.Open "c:\mydoc.doc"
w.ACTIVEDOCUMENT.PrintOut
w.ACTIVEDOCUMENT.Close

w.Quit


The Problem is when Word Quits I Get a dialogue box saying

Word is Currently Printing. Quiting Word will cancel all pending print jobs. Do you want to quit Word

As anyone any solutions ?

 

[JohnYingling]

w.Documents.Open "c:\mydoc.doc"
w.Options.PrintBackground = false ' No print "in background"
w.ACTIVEDOCUMENT.PrintOut
w.ACTIVEDOCUMENT.Close

w.Quit false ' do not save changes

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[coolscan3]

The Code Works fine

Thanks for your response

 

[cgwillis]

That is just a message that Windows has started using with the new verions. If you open a document in Word itself and try to close right after you start a print job, you will get the same message.