Print job stay in the "Spooling" status.....

[cherry]

I have write the following Macro in Word to split each
sections in a word document to an individual print job and
print them to a printer. However I found that, all the
print job will in "Spooling" status until all the print
jobs (finish the "For" loop) are passed to the printer.
Then I try to add this code MsgBox "1 fax job passed" at
the end of the For loop, if I do not click the "OK" button
in the popup MsgBox, the print job will keep in "Spooling"
status will not be print out... until all the for loop is
finish, those spooling print jobs will start to print.
Did anyone have idea, how can I fix the continuous
spooling problem?
Many Thanks

Public Sub MAIN()
Dim TotalSec, i, f$
WordBasic.EndOfDocument
TotalSec = WordBasic.SelInfo(2) - 1

For i = 1 To TotalSec
f$ = "S" + Str(i)
ActivePrinter = "FaxPrinter"
WordBasic.FilePrint NumCopies:=1, Range:=3,
From:=f$, To:=f$
'MsgBox "1 fax job passed"
Next i
End Sub

 

[Jonathan West]

Hi Cherry,

This article explains what is going on

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

 

[Cherry]

It's work : )
Thanks a lot Jonathan

Regards,
Cherry