>Let me try this again (didn't get a good answer):
>I need to batch print Word Docs nad need to avoid Words question"Do you want to save this document?
>
>here is what I do but that keeps asking:
>
> SCAN
> lcFormName = ALLTRIM(cc1.fname)
> IF NOT EMPTY(lcFormName ) AND FILE(lcFormName )
> oWord=CREATEOBJECT("Word.Application")
> oWord.VISIBLE=.F.
> oWord.DisplayAlerts=.F.
> oWord.DOcuments.Open(lcFormName )
> oWord.ActiveDocument.PrintOut(.t.)
> oWOrd.Quit()
> oword=""
> ENDIF
>
> ENDSCAN
>
>
>
>Any Ideas? I have to do a demo to the State Treasurer tomorrow and would like to avoid this snafu.
>
>
>Thanks
Till Tamar and Della kicks in :
-Save obj.ref. to a property say thisform.oWord
-Have a timer with say interval 2000
In its timer event :
if thisform.oWord.BackGroundPrintingStatus = 0
thisform.oWord.quit(0)
thisform.oWord = .null.
this.Enabled = .f.
endif
Cetin