请问怎么用fastreport打印DBGrid中选中的记录

请教如何用fastreport打印DBGrid中选中的记录
现在客户要求对查询的结果进行选择性打印，我考虑让用户自己选择要打印的记录，但是请教怎样才能把选中的记录通过fastreport打印出来？

[解决办法]
1.打印单条记录（当前记录），frxDataSet 设置RangeBegin和RangeEnd为Current
2.打印选中记录，基本思路：按照数据集过滤格式获取选中行的主键组合字串，过滤数据集，尔后打印。代码可依照如下（未测试）
uses StrUtils;

const filter:string = 'id in (%s)';//id相当于主键
var
i: Integer;
tmpStr,sql:string;
begin
with dbgrd1 do
begin
for i:=0 to SelectedRows.Count-1 do
begin
//假设Grid中第1列为主键所在列
tmpStr:=tmpStr+quotedStr(SelectedRows.Items[i][0])+',';
end;
if AnsiEndsStr(',',tmpStr) then
begin
tmpStr=AnsiLeftStr(tmpStr,Length(tmpStr)-1);
end;
DataSet.filtered:=false;
DataSet.filter := Format(filter,[tmpStr]);
DataSet.filtered:= True;
//打印
end;
end;
[解决办法]
你要在FR的getvalue中作代理，必得到中的。。。

Delphi(Pascal) code

procedure TRes_Tryuser_F.frxReport_OtherGetValue(const VarName: String; 
 var Value: Variant); 
 var i:Integer; 
 begin 
 inherited; 
    IF VarName=&#39;account_id&#39;  then 
    begin 
     Value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[0]; 
     fitext:=fitext+ VarToStr(Value)+&#39;,&#39;; 
    end; 
    if VarName=&#39;full_name&#39; then 
     Value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[1]; 
    if VarName=&#39;BM&#39; then 
     value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[8]; 
    if VarName=&#39;KB&#39; then 
     value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[9]; 
    if VarName=&#39;jcrq&#39; then 
     value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]; 
    if VarName=&#39;kh1&#39; then 
    begin 
      if  VarToStr(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[15])= &#39;&#39; then 
     Value:=&#39;V&#39; 
      else 
     Value:=&#39;&#39;; 
    end; 
    if VarName=&#39;kh2&#39; then 
    begin 
      if  VarToStr(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[15])= &#39;&#39; then 
     Value:=&#39;&#39; 
      else 
     Value:=&#39;V&#39;; 
    end; 
    IF VarName=&#39;sxr&#39; then 
      value:=cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[19]; 
   if varname=&#39;YY_JCRQ&#39; then 
      Value:=FormatDateTime(&#39;YYYY&#39;,VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12])); 
   if varname=&#39;MM_JCRQ&#39; then 
      Value:=FormatDateTime(&#39;MM&#39;,VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12])); 
   if varname=&#39;DD_JCRQ&#39; then 
      Value:=FormatDateTime(&#39;DD&#39;,VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12])); 
   if varname=&#39;YY&#39; then 
   begin 
     if VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]) &gt;StrToDateTime(&#39;2010/10/1&#39;) then 
      Value:=FormatDateTime(&#39;YYYY&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),6)) 
     else 
      Value:=FormatDateTime(&#39;YYYY&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),3));  
 
   end; 
   if varname=&#39;MM&#39; then 
   begin 
    IF VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]) &gt;StrToDateTime(&#39;2010/10/1&#39;) then 
      Value:=FormatDateTime(&#39;MM&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),6)) 
    else 
      Value:=FormatDateTime(&#39;MM&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),3)); 
   end; 
   if varname=&#39;DD&#39; then 
   begin 
    IF VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]) &gt;StrToDateTime(&#39;2010/10/1&#39;) then 
      Value:=FormatDateTime(&#39;DD&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),6)) 
    else 
      Value:=FormatDateTime(&#39;DD&#39;,IncMonth(VarToDateTime(cxGrid2DBBandedTableView1.ViewData.Records[frxDBDataset1.RecNo].Values[12]),3)); 
   end; 
  
 end;

[解决办法]
预览前过滤掉没有选中的。

关闭预览后，取消过滤！
[解决办法]
三楼的看没看懂问题啊？我都要昏倒了：）
[解决办法]
我记得fastreport可以在运行期设置报表显示的格式
[解决办法]

Delphi(Pascal) code

Procedure TCustomQueryForm.FtRpt0BeforePrint(Sender: TfrxReportComponent);Var  AInt, AInt1, AWidths, APaperW: Integer;  AColm: TcxGridDBColumn;  AFtRpt: TfrxReport;Begin  Inherited;  If FPrint Then Exit;  //FPrint 公用变量，初始化为false  AFtRpt := FtRpt1;  //一个新TfrxReport控件，放了一个表头，变量'Var_Title'                     //表尾'Var_Unit',放置了MasterData1和DetailData1  With AFtRpt Do    Begin      Variables['Var_Title'] := QuotedStr(cxTextEdit511.Text + '    '); //为表头赋值      Variables['Var_Unit'] := QuotedStr(cxTextEdit611.Text)//为表尾赋值    End;  APaperW := 1050;  //设置报表页面宽度（取得）  For AInt := 0 To cxGrid2DBTableView1.VisibleColumnCount - 1 Do    Begin       //获得view控件总宽度      AWidths := AWidths + cxGrid2DBTableView1.VisibleColumns[AInt].Width;//       End;  For AInt := 1 To cxGrid2DBTableView1.VisibleColumnCount Do    Begin      AInt1 := cxGrid2DBTableView1.VisibleColumnCount - AInt;      AColm := TcxGridDBColumn(cxGrid2DBTableView1.VisibleColumns[AInt1]);      GreateFirMemo((AColm.Width * APaperW) Div AWidths, 16, 'FstMemo111' + inttostr(AInt),        AColm.Caption, 'MasterData1');      GreateFirMemo((AColm.Width * APaperW) Div AWidths, 18, 'FstMemo111' + inttostr(AInt),        '[FrxDtset_Print."' + AColm.DataBinding.FieldName + '"]', 'DetailData1');    End;  FPrint := True;End;Function TCustomQueryForm.GreateFirMemo(Int_Width, Int_Heigth: Integer;  Str_Name, Str_Text, Str_Parent: String): Boolean;Var  FastMemo: TfrxSysMemoView;  AFtRpt: TfrxReport;Begin  Result := true;  AFtRpt := FtRpt1;

请问怎么用fastreport打印DBGrid中选中

热点推荐