Как склеить отчеты?
Здравствуйте.
Проблема: по циклу программа формирует специфические отчеты. Каждый проход подготавливает по 1-3 страницы. Можно как-то склеить эти страницы, чтобы на просмотре было все вместе, а не каждый раз по 1-3 страницы?
Спасибо
П.С. Структура программы не позволяет сделать один отчет на все эти действия..
Проблема: по циклу программа формирует специфические отчеты. Каждый проход подготавливает по 1-3 страницы. Можно как-то склеить эти страницы, чтобы на просмотре было все вместе, а не каждый раз по 1-3 страницы?
Спасибо
П.С. Структура программы не позволяет сделать один отчет на все эти действия..
Комментарии
Судя по описанию, это то что мне нужно. Щас буду пробовать. Спасибо
Если сделать так, то не работает:
Report := frCompositeReport1;
frReport1.LoadPreparedReport('c:\1.frp');
frReport2.LoadPreparedReport('c:\2.frp');
frCompositeReport1.DoublePass := True;
frCompositeReport1.Reports.Clear;
frCompositeReport1.Reports.Add(frReport1);
frCompositeReport1.Reports.Add(frReport2);
В чем проблема? Спасибо
begin
while Src.Objects.Count > 0 do
begin
Dst.Objects.Add(Src.Objects[0]);
Src.Objects.Delete(0);
end;
end;
type
TfrEMFPagesHack = class(TObject)
private
StreamMode: (smFRF, smFRP);
FPages: TList;
Parent: TfrReport;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
R2.LoadPreparedReport('aaa.frp');
R1.EMFPages.AddFrom(R2);
R2.LoadPreparedReport('file1.frp');
R1.EMFPages.MergePages(R2.EMFPages,0,0);
R1.ShowPreparedReport;
end;
Зато прошло вот так:
frReport1.EMFPages.AddFrom(frReport2);
Спасибо за помощь!