fastreport报表中如何增加空行

最新推荐文章于 2022-04-19 15:24:11 发布

chelen_jak

最新推荐文章于 2022-04-19 15:24:11 发布

阅读量7.8k

点赞数

分类专栏： FastReport 文章标签：报表 integer

FastReport 专栏收录该内容

7 篇文章

订阅专栏

本文介绍两种在FastReport中实现自动分页及末页空行填充的方法。第一种方法通过检测行号来触发分页操作，并在最后一页进行空行补充以保持每页行数一致。第二种方法则是在页脚中根据剩余空间动态显示空白行，确保页面布局统一。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【方法一】

原文： http://blog.hexun.com/i/blogclosed.aspx?m=1

var

i:integer;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  if ((<Line#>-1) mod 9 =0)and ((<Line#>-1)>0) then
  begin
     engine.newpage;                                                             //换页
  end;
i:=<line#>+1;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
var
    j:integer;
    t:integer;
begin
    if (<Page#>=<TotalPages#>) then                                     //最后一页
    begin
      if engine.finalpass  then                                                   //最后一次扫描数据

      begin
         if (MasterData1.dataset. recordcount=<line>)  then
         begin
             j:=9-(MasterData1.dataset.recordcount mod 9) ;     //利用recordCount判断是否要补空行
             if ((MasterData1.dataset.recordcount rmod 9))<>0 then

begin
for t:=1 to j do

begin
engine.showband(child1); //显示出空行Brand child1

end

             end;
         end;
      end;
    end;
end;

begin
end.

安设一空:child1 当然要显现的行数你自己定我此地示例为9

【方法二】

原文： http://topic.youkuaiyun.com/t/20050922/12/4286556.html

在MasterFooter1的OnBeforePrint中写下面的代码，

while engine.freespace> child1.height do

begin
engine.showband(child1); //显示出空行Brand child1
end