要求以每页只打印 6 条记录,其中,打印纸张格式为自定义的长*宽为:19cm*11cm
有没有人能不能提供实现这样功能的实际代码??
小弟急,望各位都能够帮助小弟一把!!

解决方案 »

  1.   

    1.放1个frReport组件,双击它,就会弹出1个报表设计的界面.
    2.在页面中插入1个Band,类型为"主项数据",接下来,FastReport会弹出1个"Band,数据源"设置的对话框,在框中选中"虚拟数据集",在"记录数(F)"中填上"6".
    3.处理少于6条记录的情况.
    4.在frReport1.的OnGetValue事件中写:
       procedure TForm1.frReport1GetValue(const ParName: String;
          var ParValue: Variant);
      begin
         if Adoquery1.Eof then
            ParValue:='';  
      end;