RMMachine中RMRichView的问题

[亲密数]

我是想把窗体中memo控件中的内容打印出来。在Header条中我放了一个RMRichView。然后编程设置他的内容，能够显示出来。但是我发现当内容超过一页的时候，他就会一直处理，请问这是什么原因呢。有没有什么解决办法。或者我的做法有什么问题吗？

var
path: string;
richView:TRMRichView;
i:integer;
str:string;
begin
path := extractFilePath(application.ExeName) + 'UtpLogRep.rmf';
rmReport1.LoadFromFile(path);
richView := TRMRichView(rmReport1.FindObject('content'));
i:=0;
richView.RichEdit.Lines.Clear;
while i<mmLog.Lines.Count do
begin
str := mmLog.Lines[i];
richView.RichEdit.Lines.Add( str );
i := i + 1;
end;
RMReport1.ShowReport;
end;

[lgqTiger]

你在程序中调用它的打印对话窗口
。。。配置好了之后才打印不行吗？

[亲密数]

谢谢。不过不行。超过一页也就一点点，但就会一直处理几百页还不结束。

[亲密数]

已经解决了，换了一种变通的方法，动态生成一个dataset,然后RmRichView的数据集设为它就行了。应该给自己加分，又加不了，只有谢谢lgqTiger了。