RE: VFP6 Report Preview Maximize

Author: Randy S. Jean

Posted: 2001-04-20 at 13:14:39

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

©2001 Randy S. Jean