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>>>>>Morning All,