Hi Randy

There are several ways. Here's yet another one.

local lcReportName, ReportForm

lcReportname = ?

_screen.lockscreen = .T.

reportform=create('form')

reportform.caption=lcReportName + ' - Preview'

report form (lcReportName) preview nowait window (reportform.name) name orep

zoom window (reportform.caption) max

_screen.lockscreen = .F.

-Anders

----- Original Message -----

From: "Randy S. Jean" <rjean@ogse.com>

To: "Multiple recipients of ProFox" <profox@leafe.com>

Sent: Friday, April 20, 2001 8:14 PM

Subject: RE: VFP6 Report Preview Maximize

> I have a function called repwindow (see below). To use it, do like so:

>

> =repwindow(.t.)

> REPORT FORM myReport PREVIEW WINDOW repwindow TO PRINTER PROMPT

> =repwindow(.f.)

>

>

>

> FUNCTION repwindow

> PARAMETERS tDefine

>

> LOCAL nWidth, nHeight

>

> IF tDefine

> nWidth =

> _SCREEN.WIDTH/FONTMETRIC(6,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)

> nHeight =

> _SCREEN.HEIGHT/FONTMETRIC(1,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)-2

> DEFINE WINDOW repwindow AT 0,0 SIZE nHeight,nWidth SYSTEM ZOOM CLOSE

> FLOAT ;

> TITLE "Report Preview" FONT

> _SCREEN.FONTNAME,_SCREEN.FONTSIZE NAME repwindow

> ELSE

> RELEASE WINDOW repwindow

> ENDIF

>

> -----Original Message-----

> From: Brian.Searle@indsys.ge.com [mailto:Brian.Searle@indsys.ge.com]

> Sent: Friday, April 20, 2001 1:01 PM

> To: Multiple recipients of ProFox

> Subject: VFP6 Report Preview Maximize

>

>

> Can anyone tell me if it is possible to maximize the print preview

> automatically?

>

> I was hoping for something like:

>

> Report Form myform Preview Maximize

>

> but I can't find much information on the preview option anywhere.

>

> Brian Searle

> brian.searle@indsys.ge.com

>

>

>

>