实现思想:
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;