新手请教：如何在fastreport中给richedit每行打印横格线？ ( 积分: 50 )

请问：我想在fastreport中打印一个表单中的richedit中的内容，并且我想实现每一行加一条横线，横线要布满整个纸张，就像稿纸那种样式，如何实现？
我在fastreport中有3个band,一个是masterdata1,一个footer1,还有一个child1
在masterdata1上放置了一个richedit,在child1上放了一条横线。
我在fastreport脚本中加入了以下代码
var
PageLine: integer;
PageMaxRow: integer=28;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := <line> mod PageMaxRow;
if (PageLine = 1) and (<line> > 1) then
begin
Engine.showBand(Footer1);
Engine.newpage;
end;
end;

procedure Footer1OnBeforePrint(Sender: TfrxComponent);
var
i: integer;
begin
i := iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRowdo
begin
i := i + 1;
Engine.ShowBand(Child1);
end;
end;

如果将MasterData1这个Band的stretch属性设置为False,那么可以实现以下效果。
中国人民...............
-----------------------
万岁！
-----------------------
-----------------------
-----------------------
但问题是richedit就不分页打印了，内容在第一页下面就不往第二页上显示了。
如果将MasterData1这个Band的stretch属性设置为True,那么richedit可以分页，但是richedit里面的内容打印完了才会打印横线。
中国人民...............
万岁！
-----------------------
-----------------------
-----------------------
各位高手看看是什么原因喃？有什么好的解决方案吗？

帮顶，接分

自己顶一下。