Modify the RBuilder\Demos\EndUser\ReportExplorer example to do this as shown below:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
{---------------------------------------------------------------------------} { TmyEndUserSolution.LoadEndEvent } procedure TmyEndUserSolution.LoadEndEvent(Sender: TObject); begin ppReport1.OnPreviewFormCreate := PreviewFormCreateEvent; ppReport1.OnPrintDialogCreate := PrintDialogCreateEvent; end; {procedure, LoadEndEvent} {---------------------------------------------------------------------------} { TmyEndUserSolution.PrintDialogCreateEvent } procedure TmyEndUserSolution.PrintDialogCreateEvent(Sender: TObject); begin ppReport1.PrintDialog.AllowPrintToFile := True; ppReport1.PrintDialog.TextFileName := 'c:\myReport.txt'; ppReport1.PrintDialog.DeviceType := dtReportTextFile; end; |