Перенос страницы из отчета в отчет

Комментарии

• gpi

  November 2012 отредактировано 10:22

  Как-то так:

  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, frxClass;
  
  type
    TForm1 = class(TForm)
      frxReport1: TfrxReport;
      procedure FormCreate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.FormCreate(Sender: TObject);
  var Report: TfrxReport;
      Page: TfrxReportPage;
      Subreport: TfrxSubreport;
      MasterData: TfrxMasterData;
      i: integer;
      c: TfrxComponent;
  begin
      Report:=TfrxReport.Create(Form1);
      Report.LoadFromFile('subreport.fr3');
      Page:=TfrxReportPage.Create(nil);
      Page.AssignAll(Report.Pages[1]);
      Page.Parent:=frxReport1;
      Page.CreateUniqueName;
      for i:=0 to Page.AllObjects.Count-1 do
        begin
          c:=Page.AllObjects.Items[i];
          c.CreateUniqueName;
        end;
      MasterData:=TfrxMasterData(frxReport1.FindObject('MasterData1'));
      Subreport:=TfrxSubreport.Create(MasterData);
      Subreport.CreateUniqueName;
      Subreport.SetBounds(0, 0, 100, MasterData.Height);
      Subreport.Page:=Page;
      Report.Free;
      frxReport1.ShowReport();
  end;
  
  end.
  

  Этот код вставляет отчёт, как вложенный, но в нём Вы найдёте то, что Вам нужно
• Fearless

  November 2012 отредактировано 10:22

  gpi написал: »

  Этот код вставляет отчёт, как вложенный, но в нём Вы найдёте то, что Вам нужно

  Спасибо большое, как раз то, что надо было. Как раз и надо было вставить Subreport-ом