Word quits too fast...

[ztm]

Hey all.
I'm creating an access form that prints a Word document. It works great if I step (F8) through the code, but when I run it in real-time, I get a message from Word that says "...quitting Word will cancel print jobs." Obviously the code is running too quick for the document to get to the printer, but how do I make it wait until that happens?

Private Sub cmdWord_Click()

Dim wordApp As Object
Set wordApp = CreateObject("Word.Application&quot

wordApp.Documents.Open FileName:="c:\mydoc.doc"
wordApp.ActiveDocument.PrintOut
wordApp.ActiveDocument.Close
wordApp.Quit

Set wordApp = Nothing
End Sub

 

[AcousticalConsultant]

Well there may be a better method of doing this, but seeing as I'm not too familiar with all VB commands, I would fix that problem by holding the program for a few seconds :

Application.Wait Now + TimeValue("HH:MM:SS&quot

Hope that helps!

 

[JohnYingling]

wordApp.ActiveDocument.PrintOut false ' BackgroundPrint=false

Words waits for the spooling of printout to complete before returning to you.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[ztm]

Thanks John,
It seems so obvious...now.