> SCAN > lcFormName = ALLTRIM(cc1.fname) > IF NOT EMPTY(lcFormName ) AND FILE(lcFormName ) > oWord=CREATEOBJECT("Word.Application") > oWord.VISIBLE=.F. > oWord.DisplayAlerts=.F. && Dont' ask , but it does anyway!!! > oWord.DOcuments.Open(lcFormName ) > oWord.ActiveDocument.PrintOut(.t.) > oWOrd.Quit() > oword="" > ENDIF > > ENDSCAN >>