oPreviewForm = NEWOBJECT('PreviewForm') REPORT FORM Rpt_ClientReviewWorksheetInternal IN WINDOW PreviewForm TO PRINTER PROMPT PREVIEW oPreviewForm.ReleaseIn my case, users want the report window to appear full screen so I just ZOOM MAX. But you could modify the FORM class to LOAD and SAVE the user's settings. Here's the class definition I use (which probably came from a sample posted on the UT long ago).
*********************************************************************** 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 ***********************************************************************