fastreport报表中图片作为背景模版,只是在预览时可以看到,但不要打印出来,因为我们有印刷这种表格出来,我只要在里面打印数据就可以了,请问应该怎么设置. 

解决方案 »

  1.   

    把图片的TAG设为1;//处理不需打印的对象
    procedure TReportPrintForm.NotPrint(frReport: TfrReport);
    var
      i, j: Integer;
    begin
      for j := 0 to frReport.Pages.Count - 1 do
        for i := 0 to frReport.Pages[j].Objects.Count - 1 do begin
          if StrToIntDef(TfrView(frReport.Pages[j].Objects[i]).Tag, 0) = 1 then
            TfrView(frReport.Pages[j].Objects[i]).Visible := False;
        end;
    end;
      

  2.   

    楼上的大哥,小弟愚昧还是没有能够解决我的问题,图片的TAG我设为1了,不过下面的代码是要加在什么地方呀,好像没有notprint这个事件的.我也有在报表的onbeforeprint事件写代码将图片的visible:=false;但是在预览显示的时候也不会显示图片了.
      

  3.   

    这个不是一个事件,是自定义的一个过程,你打印是调用以下就可以了啊;
    if AIsTD then NotPrint(frfReport);
      if frfReport.PrepareReport then begin
       frfReport.ShowPreparedReport;
      end