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%:
1 2 3 4 5 6 7 |
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.