一会就要用了,可我还没法在程序中实现打印编辑好的报表,大家帮忙阿!

解决方案 »

  1.   

    方法1.frReport1的storelnDFM设置为true,编辑报表,报表存盘
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      frreport1.ShowReport;
    end;
    方法2.
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      frreport1.LoadFromFile('c:\???.frf');//你的报表
      frreport1.ShowReport;
    end;
      

  2.   

    方法1.frReport1的storelnDFM设置为true,编辑报表,报表存盘
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      frreport1.ShowReport;
    end;
    方法2.
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      frreport1.LoadFromFile('c:\???.frf');//你的报表
      frreport1.ShowReport;
    end;