>oPreviewForm = NEWOBJECT('PreviewForm') >REPORT FORM Rpt_ClientReviewWorksheetInternal IN WINDOW PreviewForm TO PRINTER PROMPT PREVIEW >oPreviewForm.Release >>
>*********************************************************************** >DEFINE CLASS PreviewForm AS FORM >*********************************************************************** >Height = 250 >Width = 375 >Desktop = .F. >ShowWindow = 2 >DoCreate = .T. >AutoCenter = .T. >BorderStyle = 3 >Caption = "Print Preview Window" >ControlBox = .F. >Closable = .F. >MinButton = .F. >Movable = .F. >WindowType = 0 >WindowState = 2 >AlwaysOnTop = .F. >Name = "previewform" > > >*********************************************************************** >PROCEDURE Deactivate >*********************************************************************** >DODEFAULT() >IF WEXIST('Report Designer') >ZOOM WINDOW "Report Designer" MAX >* MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer" >ENDIF >IF WEXIST('Print Preview') >lnRow=MROW() >lnCol=MCOL() >MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview" >*MOUSE AT lnRow,lnCol >ENDIF >*********************************************************************** > > >*********************************************************************** >PROCEDURE Init >*********************************************************************** >DODEFAULT() >THIS.SHOW() >** KEYBOARD 'L' && WORKS! 75% is perfect >ENDPROC >*********************************************************************** > >*********************************************************************** >PROCEDURE Activate >*********************************************************************** >DODEFAULT() >IF WEXIST('Report Designer') > *ZOOM WINDOW 'Report Designer' MAX >ENDIF >IF WEXIST('Print Preview') > *ZOOM WINDOW 'Print Preview' MAX > *MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview" > *DOCK WINDOW ("Print Preview") POSITION 0 >ENDIF > >ENDPROC >*********************************************************************** > > >ENDDEFINE >*********************************************************************** >