Ai 2 variante, una cu ShellExecute, care e valabila si daca e alt program care deschide .DOC (cum ar fi OpenOffice )

declare integer  ShellExecute in SHELL32.DLL ;
            INTEGER nWinHandle ,;
            STRING cOperation,;
            STRING cFileName,;
            STRING cParameters,;
            STRING cDirectory,;
            INTEGER nShowWindow

ShellExecute(0,'Print',Getfile('doc'),'','',0)

sau cu Automation

oWord = Createobject('Word.Application')
oword.Documents.Open( Getfile('doc') )
oword.Documents.Item(1).PrintOut()
...