oleObject ole_1
string ls_result
ole_1 = CREATE OLEObject
ole_1.ConnectToNewObject("word.application")
ole_1.documents.open("C:\realhowto.doc")
ole_1.selection.typetext(ls_result)
ole_1.activedocument.PrintOut(FALSE)
ole_1.activedocument.PrintOut()
ole_1.activedocument.close(0) 
ole_1.quit()
ole_1.disconnectObject()
DESTROY ole_1