Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?
Question: Есть список отчётов. Для предварительного просмотра при выборе отчёта необходимо показывать пользователю только первую страницу отчёта. Как это сделать?
Answer:
Используйте код:
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;