Want to see 100% zoom

rbuser

Hello
I call my Report at Run time as
ppReport.Print.
By default it shows 40% zoom.
I need when open the report automatically
it should
show 100% zoom.
Waiting your kind response.

Thank u
Ajit
Sysmetric(P) Ltd
Calcutta, INDIA


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.250 / Virus Database: 123 - Release Date: 4/18/01

digitalmetaphors

See our TechTips newsgroup and look in the Formats and Devices thread for
and article titled 'Controlling the Built-in Previewer.'


Cheers,

Jim Bennett
Digital Metaphors

rbuser

To achieve your goal, put the following code in the BeforePrint event of the
report:

ppMyReport.PreviewForm.WindowState := wsMaximized;
TppViewer(ppMyReport.PreviewForm.Viewer).ZoomSetting := zs100Percent;

To do that, you'll have to declare 'ppViewr' in the uses section.

Cheers,

Jean-Paul