读书人

于DELPHI中FastReport中填充空行的

发布时间: 2013-06-26 14:29:32 作者: rapoo

于DELPHI中FastReport中填充空行的!
在Delphi中,FASTReport4.8中,如何,不足一自填充空行。以前的版本有一功能,可是在4.8中有一功能了!我在上找了一下,是用本做,可以按照上述的方法,打印就整程序了!所以在教一下各位!多!
[解决办法]
主要band有
report title
page title
MasterDate band
child1 //用不隶属关系
footer;//此footer要设为不可见的,不能有汇总项,
汇总项用pagefooter 或reportsum 来做,pagefooter为每页小计,reportsum为报表合计。

加一个子Band(名称为child1),在该子Band上画上一行与你的记录行左对齐的空格(memo为空)行;再加一个footer Band,onBeforePrint里写上:
while Engine.FreeSpace> 指定高度 do
Engine.ShowBand(Child1);
[解决办法]
FastReport分页+空行填充

1.添加两个Band 一个是主数据和CHild(与主数据一样的空白带格子)。
2.生成Page事件。
3.添加代码。

var
aa:Integer;
maxRow:Integer;


procedure Page1OnManualBuild(Sender: TfrxComponent);
var
DataSet: TfrxDataSet;
begin
DataSet := MasterData1.DataSet;
DataSet.First;
while (not DataSet.Eof) or ((aa-1) mod MaxRow<>0) do
begin
if DataSet.Eof then
Engine.ShowBand(Child1)
else Engine.ShowBand(MasterData1);
DataSet.Next;
inc(aa);
if (((aa-1) mod (MaxRow)=0) and (not DataSet.Eof)) then EngIne.Newpage;
end;
end;

begin
aa:=1;
maxRow:=40; //每页最大行数
end.

读书人网 >.NET

热点推荐