Printer dialog box, Do..While & VBA

[Rick]

I have a macro that performs several functions, brings up
the Print dialog box so that the user can select the
correct printer and the number of copies. The macro then
performs other functions. It appears that I need a Do
While statement because the documents will not print. The
macro does finish however. Here's the code:

' **** SELECT PRINTER AND CHOOSE 4 COPIES ****
MsgBox "Select Printer and choose 4 copies",
vbOKOnly, "Choose Printer"
With Dialogs(wdDialogFilePrint)
.Display
End With
'***************
Kill filename
Do other stuff
end

How do a setup the Do While to wait for the printing
process to occur / finish? I can not simply tell it to
print automatically because different users print to a
different color printer which is not their default
printer. Should I use something other than Do While?

Thanks

 

[Jonathan West]

Hi Rick,

This article describes your problem and the solution

How to find out whether Word has finished printing
http://www.mvps.org/word/FAQs/MacrosVBA/WaitForPrint.htm