Prevent Word Exiting until Printing Done 2

[delboy1295]

You techies have been very helpful to me previously - I'd like to try again!

I'm calling Word from a bespoke VBA application.
I assign bookmarks & print a couple of copies of a document.

When I add the line:-

WordApp.Quit

I get the message that exiting Word will stop the spooling/printing. This causes wobbles in the App.

Is there a way of only quitting when printing is complete?

Thanks in Anticipation!

 

[JohnYingling]

You need this before PrintOut
Options.PrintBackground = false

This lets you Quit after output is spooled. Make sure you use
Quit False ' Avoid "Save" prompt

I used the "named parameter" version

Public Sub PrintDocument(Optional strCopies = "3&quot

'*****
'* Print Document
'*****
Application.PrintOut FileName:="", _
Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, _
Copies:=strCopies, _
Pages:="", _
PageType:=wdPrintAllPages, _
Collate:=True, _
Background:=False, _
PrintToFile:=False

End Sub

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript