Local oPreviewForm as Form

oPreviewForm = CREATEOBJ("Form")
oPreviewForm.Name = [PreviewWindow]
oPreviewForm.WindowState = 2  &&Maximized
oPreviewForm.Visible = .T.

REPORT FORM YourReportFile.Frx to print preview window PreviewWindow

oPreviewForm.Release

DO WHILE .T.
      ME.Work()
ENDDO