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