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