REPORT FORM (thisform.cFrxFile) PREVIEW NOCONSOLE ; In windows (thisform.oInWin.cWindowName) nowait this.lPreviewOK =.t. activate windows (thisform.oOutwin.cWindowName) CLEAR TYPEAHEAD KEYB '{ctrl+f10}' plain *------------------------------------------------------------ IF TYPE("thisform.oOutwin")<>'O' define window (thisform.Name+'_OutWin') AT 0,0 SIZE 1,1 ; IN WINDOW (thisform.name) name (thisform.Name+'_OutWin') define window (thisform.Name+'_InWin') AT 0,0 SIZE 1,1 ; IN WINDOW (thisform.Name+'_OutWin') name (thisform.Name+'_InWin') thisform.oOutWin=EVALUATE(thisform.Name+'_OutWin') thisform.oInWin=EVALUATE(thisform.Name+'_InWin') Endif *--- WITH thisform.oOutWin .backcolor=RGB(128,128,128) .borderStyle=0 .left=0 .top=30 .width=thisform.Width .height=thisform.Height - 27 - thisform.tabstrip.Height -4 .addProperty('cWindowName',thisform.Name+'_OutWin') ENDWITH WITH thisform.oInWin .backcolor=RGB(128,128,128) .borderStyle=0 .left=-2 .top=-24 .width=thisform.oOutwin.Width + .left + 3 .height=thisform.oOutwin.Height + ABS( .Top ) .addProperty('cWindowName',thisform.Name+'_InWin') ENDWITH