>lcWindStandard = WEXIST('standard') > >IF lcWindStandard > HIDE WINDOW standard >ENDIF > >LOCAL oPreviewForm >oPreviewForm = createOBJECT('PreviewForm') >REPORT FORM test TO PRINTER PROMPT WINDOW PREVIEWFORM PREVIEW >oPreviewForm.Release >IF lcWindStandard > SHOW WINDOW standard >ENDIF >RETURN > >DEFINE CLASS previewform AS form > > Height = 500 > Width = 700 > Desktop = .F. > ShowWindow = 1 > ScrollBars = 3 > DoCreate = .T. > AutoCenter = .T. > BorderStyle = 1 > Caption = "Print Preview Window" > ControlBox = .F. > Closable = .F. > MinButton = .F. > MaxButton = .T. > Movable = .F. > WindowType = 0 > WindowState = 1 > AlwaysOnTop = .F. > onkeyctrlf10 = "''" > Name = "previewform" > > PROCEDURE QueryUnload > > lcoldctrlf10setting = THISFORM.onkeyctrlf10 > IF !EMPTY(lcoldctrlf10setting) > ON KEY LABEL CTRL+F10 &lcoldctrlf10setting > ENDIF > ENDPROC > > PROCEDURE Init > DODEFAULT() > THISFORM.onkeyctrlf10 = ON('KEY LABEL','CTRL+F10') > ON KEY LABEL CTRL+F10 > THIS.SHOW() > CLEAR TYPEAHEAD > ENDPROC > > PROCEDURE Deactivate > DODEFAULT() > IF WEXIST('Report Designer') > MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer" > ENDIF > IF WEXIST('Print Preview') > MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview" > ENDIF > keyboard "{ctrl+f10}" > ENDPROC > >ENDDEFINE > >>