TECH TIP: Controlling the Built-in Previewer
You can control the built-in preview form via the Report.OnPreviewFormCreate event.
For example the following code sets the Print Preview form to maximized and sets the Viewer ZoomSetting to 100%:
procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject);
begin
ppReport1.PreviewForm.WindowState := wsMaximized;
TppViewer(ppReport1.PreviewForm.Viewer).ZoomSetting := zs100Percent;
end;
Note: You will need to add ppViewr to the uses clause of your unit, so that the ZoomSetting enumerated type is recognized by the compiler.