SET SAFETY OFF IF WEXIST('STANDARD') HIDE WINDOW STANDARD ENDIF _screen.width=720 _screen.height=460 CREATE TABLE testit (cid c(10)) SELE testit FOR i = 1 TO 100 APPEND BLANK REPLACE testit.cid WITH ALLTRIM(STR(i)) ENDFOR *--Create a simple report name testit so you can run this part m.reportform = 'testit' LOCAL oPreviewForm oPreviewForm = NEWOBJECT('PreviewForm') REPORT FORM (m.reportform) WINDOW PREVIEWFORM PREVIEW oPreviewForm.Release USE IN testit RETURN DEFINE CLASS previewform AS form Top = 0 Left = 0 Height = 250 Width = 375 ScrollBars = 3 DoCreate = .T. Caption = "Print Preview Window" WindowState = 2 controlbox = .F. setstatus = "''" Name = "previewform" PROCEDURE GotFocus this.windowstate = 2 DODEFAULT() ENDPROC PROCEDURE Deactivate MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview" DODEFAULT() ENDPROC PROCEDURE Init thisform.setstatus = SET('STATUS BAR') set status bar on DODEFAULT() this.show() KEYBOARD '{CTRL+F10}' ENDPROC PROCEDURE Show LPARAMETERS nStyle this.windowstate = 2 DODEFAULT() ENDPROC PROCEDURE Release IF !EMPTY(thisform.setstatus) PRIVATE lcstatusbar lcstatusbar = THISFORM.setstatus SET STATUS BAR &lcstatusbar ENDIF DODEFAULT() ENDPROC PROCEDURE QueryUnload IF !EMPTY(thisform.setstatus) PRIVATE lcstatusbar lcstatusbar = THISFORM.setstatus SET STATUS BAR &lcstatusbar ENDIF DODEFAULT() ENDPROC ENDDEFINE