There is a knowledge base article about this but I don't know the number.

with oWord
local llPrintBackGround
llPrintBackGround = .Options.PrintBackGround()
IF llPrintBackGround
.Options.PrintBackGround = .F.
ENDIF

.ActiveDocument.PrintOut()
doevents()
wait window space(0) timeout 2
do while .BackgroundPrintingStatus > 0
doevents()
wait window space(0) timeout 2
enddo
IF llPrintBackGround
.Options.PrintBackGround = .T.
ENDIF
.application.Quit(0)
endwith

release oWord