*Procedure YGeneral_PrintWord * assuming there is a table having General field lcfile and there is a WORD document, embedded use (your_table) Genfiedname="General_Field_Name" GO (appropriate_record_number) local oForm oForm = Createobject('_Form',Genfiedname) WITH oForm.myOle1 IF .oleclass="Word.Document" * set the control size properly; * otherwise the document paper size may be not properly inherited. .width=600 .height=800 .object.Activate .object.PrintOut(0) ELSE ?"? OLeclass: ", .oleclass endif ENDWITH =oForm.Release() RETURN *------------------------------------------------------------------- Define Class _Form As Form PROCEDURE iNIT LPARAMETERS pGenFieldName this.addobject('myOLe1',"OleBoundControl") this.myole1.ControlSource = ALIAS()+'.'+pGenfieldName ENDPROC Enddefine