FastReport 还是固定行问题

wn520 2009-10-19 03:56:31

var
PageLine: integer; //在現在頁列印到第幾行
PageMaxRow: integer=10; //設定每頁行數
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin
PageLine := <Line> mod PageMaxRow;
if (PageLine = 1) and ( <line> > 1) then
Engine.newpage;
child1.visible := False;

end;



procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
child1.visible := True;
while i < PageMaxRow do
begin
i := i + 1;
Engine.ShowBand(Child1); //印空白表格
end;
child1.visible := False;

end;

begin

end.


我这样写之后,结果打印一条数据,就打印9行空白行啊
我还必须要分栏,怎么实现啊!
...全文
77 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wn520 2009-10-19
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 smallhand 的回复:]
没明白楼主的需求!
[/Quote]

现要求每张纸上打印20条数据,比如数据表中有12条数据,则自动补8条空白行;如数据表中有11条数据,则自动补9条空白行.我增加了一个band 指定一虚拟数据集和记录数,但是记录数只能固定设制,如何指定记录数=20-数据表记录数呢??
火龙岛主 2009-10-19
  • 打赏
  • 举报
回复
没明白楼主的需求!

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧