report preview in full screen problem

[engan]

hi, does anybody know how to do full screen report preview ?
I use ctrl+f10 to expand to fullscreen but when I execute the second time, it won't display full screen.
here is my code :

KEYBOARD "{CTRL+F10}" CLEAR
REPORT FORM MyReport.FRX PREVIEW NOCONSOLE

EngAn

 

[ramani]

Hi EngAn
************************************
oRepForm = CREATEOBJECT("Form&quot
WITH oRepForm
.Caption = "Report Window"
.WindowState = 2
.Show()
ENDWITH
REPORT FORM (rptFile) PREVIEW WINDOW ;
(oRepForm.Name) TO PRINTER PROMPT
oRepForm.Release()
***************************************


ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[darrellblackhawk]

Ramani:

Here's a generic function for your solution...

I use numerics for return values to the calling
process, so the function can be extended with
additional error detection functionality.

Darrell

FUNCTION PrintPreview(lcReportForm, lcReportTitle)
LOCAL oRepForm
IF !FILE(lcReportForm)
RETURN 1
ENDIF
oRepForm = CREATEOBJECT("C_ReportForm",lcReportTitle)
oRepForm.SHOW()
REPORT FORM (lcReportForm) PREVIEW WINDOW (oRepForm.NAME) TO PRINTER PROMPT
oRepForm.RELEASE()
RETURN 0
ENDFUNC

DEFINE CLASS C_ReportForm AS FORM
DOCREATE = .T.
CAPTION = "Report Preview"
WINDOWSTATE = 2

PROCEDURE INIT(lcRepTit)
THIS.CAPTION = IIF(VARTYPE(lcRepTit)=="C",lcRepTit,THIS.CAPTION)
ENDPROC
ENDDEFINE

'We all must do the hard bits so when we get bit we know where to bite'

 

[engan]

Ramani, I try your suggestion and it works. But I still got one window behind the report window. When I minimize the report window, the window behind report window cannot be closed or minimized. The caption of this window is the same as my report window. Is it possible to remove/hide this window ?
Eng An

 

[Mike Gagnon]

engan

Instead try putting this:
In the init() of the Dataenvironment of the report

ZOOM WINDOW 'Report Designer' MAX


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.