Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?
Question: Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?
Answer:
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TForm1.frxReport1Progress(Sender: TfrxReport; ProgressType: TfrxProgressType; Progress: Integer;) begin if Progress > 1 then frxReport1.Engine.StopReport; end; procedure TForm1.Button1Click(Sender: TObject); begin frxReport1.PrepareReport(); while frxReport1.PreviewPages.Count > 1 do frxReport1.PreviewPages.DeletePage(1); frxReport1.ShowPreparedReport; end; |