选中结果集里的多条记录用fastreport进行打印

 

实现思想：

1. 将选中的记录写到一个新建的结果集里（Clientdataset）；

2. 把结果集赋给fastreport； frxdbdtstDBCusBillDetail.DataSet := cds;

3. 在Fastreport里设置，在设置界面里，右键==》选上stretch, (将打印范围拉大，把整个要打印的记录包括进去), 再接着右键==》编辑，选中数据集为“frxdbdtstDBCusBillDetail”

 

至此设置完成。

 

 

 

 

procedure TTrustInfoForm.TbPrintClick(Sender: TObject);
var
  FileName : String;
begin
  inherited;
  FileName := DM.reg.Path+'templet\ZJYTTrustReport.fr3';
  if not FileExists(FileName) then Exit;

  getSelectedRecord;

           //ShowMessage(cds.fieldByName('billno').AsString);
 
  //cds.AppendRecord();
  frxdbdtstDBCusBillDetail.DataSet := cds;

  frxReport1.Clear;
  frxReport1.LoadFromFile(FileName);
  //frxReport1.ShowReport();
  frxReport1.DesignReport;
   //frxReport1.ShowReport;
//
end;