选中结果集里的多条记录用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;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值