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

Комментарии

• _Lexa_

  April 2006 отредактировано 00:17

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

  April 2006 отредактировано 00:17

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

  April 2006 отредактировано 00:17

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

  April 2006 отредактировано 00:17

  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_

  April 2006 отредактировано 00:17

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

  April 2006 отредактировано 00:17

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

  April 2006 отредактировано 00:17

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