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