|
procedure TForm1.Button1Click(Sender: TObject);
begin
ReportSystem1.DefaultDest := rdFile;
ReportSystem1.DoNativeOutput := false;
ReportSystem1.RenderObject := RPRenderPDF1;
ReportSystem1.OutputFileName := 'test1.pdf';
ReportSystem1.SystemSetups := ReportSystem1.SystemSetups - [ssAllowSetup];
ReportSystem1.Execute;
end;
|