>oPrintPrev = CREATEOBJECT("Form") > >WITH oPrintPrev > .NAME = "PrintPrev" > .CAPTION = THISFORM.Caption+" Print Preview" > .TOP = THISFORM.TOP > .LEFT = THISFORM.LEFT > .WIDTH = THISFORM.Width-10 > .HEIGHT = THISFORM.HEIGHT-50 > .MinButton = .F. > .AlwaysOnTop = .T. > .Windowstate = 2 >ENDWITH > >REPORT FORM regsup PREVIEW WINDOW PrintPrev nowait >>