Как склеить отчеты?

Nick N.

Здравствуйте.

Проблема: по циклу программа формирует специфические отчеты. Каждый проход подготавливает по 1-3 страницы. Можно как-то склеить эти страницы, чтобы на просмотре было все вместе, а не каждый раз по 1-3 страницы?

Спасибо

П.С. Структура программы не позволяет сделать один отчет на все эти действия..

Michael

Composite Report?

Nick N.

Michael написал:

Composite Report?

Протупил...

Судя по описанию, это то что мне нужно. Щас буду пробовать. Спасибо

Nick N.

Кстати, а Coposite Report склеивает готовые отчеты, сохраненные в *.frp?

Если сделать так, то не работает:

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);

В чем проблема? Спасибо

Michael

Нет. Готовые склеивать надо примерно так:

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;

Nick N.

Процедуры MargePages нет у объекта EMFPages

Зато прошло вот так:

frReport1.EMFPages.AddFrom(frReport2);

Спасибо за помощь!