FastReport 套打全攻略

最新推荐文章于 2026-05-11 11:53:48 发布

原创最新推荐文章于 2026-05-11 11:53:48 发布 · 7.6k 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#报表

Delphi 专栏收录该内容

55 篇文章

订阅专栏

本文围绕FastReport套打展开，以设计套打行为6行为例，详细介绍了在不同事件（如TfrPage.OnBeforePrint等）中编写代码来实现套打控制，还说明了报表结构组成，包括栏目头、主项数据等，最后给出了调用、打印和预览的方法。

FastReport 套打全攻略 2005-7-13 22:10 原创
//以设计套打行为6行为例进行说明
一、定义变量
TaoDa   0 是套打 1 不套打
cPage   系统变量页#
caPage 系统变量总页数

二、TfrPage.OnBeforePrint事件中写
{
if TaoDa = '0' then
  begin
   title.visible:=false;   //不用打印的设置Visible为False;
   danweiv.frametyp := 0; //只打印数据的不需要打印边框的设置 frametyp 为 0;
   ...
  end;
i := 0 ;   //定义一个变量并进行初始化。
}
二、主项数据.OnBeforePrint事件中写
{
if TaoDa = '0' then
  begin
   i := i + 1;
   bm.memo := i;
   if (i > 5 ) then
    if ((i-1) mod 6 ) = 0 then newpage;
  end;
}

三、主项脚.OnBeforePrint事件中写
{
j := i mod 6;
if j <> 0 then
  begin
   for k := j to 5 do
    begin
     ShowBand(Child1);   //Child1是子的名称显示空白行
    end;
  end;
}
四、栏目脚.OnBeforePrint事件中写
{
if cpage <> capage then
  begin
   shi.memo := ''; //十
   bai.memo := ''; //百
   qian.memo := ''; //千
   wan.memeo := ''; //万
  end
  else begin
   shi.memo := v1;
   bai.memo := v2;
   qian.memo := v3;
   wan.memo := v4;
  end;
}

这段代码是用来控制在有多页情况下，在最后一页上显示总金额。
其中：v1,v2,v3,v4 是自定义变量。

报表结构组成：
栏目头           //画报表的标头
主项数据         //显示的数据，会与数据源进行绑定
主项脚      //什么也不用放，只用来控制 visible := false;
子               //画出空白行显示的组件
栏目脚           //显示总的金额、数量
页脚             //显示页数

调用方法：

frReportA.LoadFromFile(s); s 是文件
frReportA.Dictionary.Variables['taoda']:='1';
进行查询

打印：
frReportA.PrepareReport;
frreportA.PrintPreparedReport('',1,true,frall);

预览：
frReportA.ShowReport;