各位老师们好 ,想改一下 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.