FastReport中如何动态控制打印的行数?

爱的狂妄死的嚣张 2014-02-17 12:27:51
各位老师们好 ,想改一下 fastreport中 控制打印的行数不知道怎么弄 ;
原先每页只能打印 8行数据 ,纸张高度 为9.33 。能够正常打印到下一页
客户纸张为13 (已设置好),行数也能打印出来,但是没有格子,怎么弄出来格子?
代码如下:
procedure Line10OnBeforePrint(Sender: TfrxComponent);
begin
if <Line> mod 8=0 then
begin
Line10.Visible:=False;
Line10.printable:=False;
end
else
begin
Line10.Visible:=True;
Line10.printable:=True;
end;
end;

procedure Memo31OnBeforePrint(Sender: TfrxComponent);
begin
Memo31.Visible:=<page>=<totalpages>;
Memo31.Printable:=<page>=<totalpages>;
end;

begin

end.
...全文
339 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
峰云小子 2014-03-04
  • 打赏
  • 举报
回复
cai cai
babydog01 2014-02-19
  • 打赏
  • 举报
回复
提问前,查一下以前的贴,也能省积分哦。 http://bbs.csdn.net/topics/390366116

5,391

社区成员

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

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