Объединение подготовленных отчетов

_Lexa_

Мне надо объединить 2 подготовленных отчета
frxReport1.PreviewPages
frxReport2.PreviewPages
вот от сюда и потом вывести на печать
можно ли это сделать и если можно то как.

_Lexa_

Маленькое дополнение 2-й отчет должен начинаться сразу за первым (иногда на той же странице)

Fokewolf

А одним отчетом никак?

_Lexa_

не никак. второй отчет формируется в другом модуле а результат нужен как объединенный отчет.

gpi

procedure TForm1.Button1Click(Sender: TObject);
var AStream: TMemoryStream;
begin
     TfrxReportPage(frxReport2.FindObject('Page1')).PrintOnPreviousPage:=True;
     AStream:=TMemoryStream.Create;
     frxReport1.PrepareReport(True);
     frxReport2.SaveToStream(AStream);
     AStream.Position:=0;
     frxReport1.LoadFromStream(AStream);
     frxReport1.PrepareReport(False);
     AStream.Free;
     frxReport1.ShowPreparedReport;
end;

_Lexa_

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

gpi

Тогда frxReport1.PreviewPages.AddFrom(frxReport2);
но два отчёта на одной странице не получится

_Lexa_

это я знаю, а вот если сделать вот так
frxReport1.PreviewPages.AddObject(frxReport2.PreviewPages.Page[0]);
то отчеты накладываются один на другой.
если мне кто скажет как сдвинуть второй под первый скожу спасибо )