Сведение нескольких отчётов

SergSW · January 2007

Пытаюсь свести несколько отчётов в один.

К сожалению не могу использовать

 frxReport1.PrepareReport(False);

т.к. добавлянь надо из другого компонента отчёта (другого TfrxReport)

Пробовал так

  frxCompositeRep.Assign(frxRep);
  frxCompositeRep.PrepareReport(false);

вообще ничего не отображает! Даже последнего отчёта нет.

Пробовал копировать страницы вручную

procedure AddReport(Dst, Source: TfrxReport);
 var
   I: Integer;
 begin
   for I := 0 to Source.PreviewPages.Count - 1 do
     Dst.PreviewPages.AddPage(Source.PreviewPages.Page[I]);
 end;

с ошибками вылетает при попытке показать такой отчёт.

Как быть?

-=Den=- · January 2007

frxReport1.PrepareReport();
frxCompositeRep.PrepareReport();
frxCompositeRep.PreviewPages.AddFrom(frxReport1);
frxCompositeRep.ShowPreparedReport;

SergSW · January 2007

Спасибо помогло, почти...

дело в том что если PreviewPages.Count = 0 то

frxCompositeRep.PreviewPages.AddFrom(frxReport1);

вылетает

Делаю так

procedure AddReport(Dst, Src: TfrxReport);
var
  Stream: TMemoryStream;
begin
  if Dst.PreviewPages.Count = 0 then
  begin
    Stream := TMemoryStream.Create;
    Src.PreviewPages.SaveToStream(Stream);
    Stream.Position := 0;
    Dst.PreviewPages.LoadFromStream(Stream);
    Stream.Free;
  end
  else
    Dst.PreviewPages.AddFrom(Src);
end;

Всё работает!

Ещё раз спасибо!

Сведение нескольких отчётов

Комментарии

Оставить комментарий