打印显示问题(100)

请问我现在要把一段内容复给TQRRichText控件，然后打印出半张A4纸大小！如果内容太多的话显示不完全，请问我怎样才能把这段内容复给控件后检测下是否超出，如果超出把字体缩小一号？？比较急！高手请赐教。。。。

自己写个函数处理一下。把TQRRichText里面的内容取出来，判断一定长度再换行。function text_temp(Para1:String;para2:integer):string;var i,j:integer;
temp,s:string;
begin
i:=para2;
j:=length(Para1);
temp:='';
s:='';
While i<jdo
begin
s:=copy(Para1,1,i)+#13+#10;
delete(para1,1,i);
Temp:=Temp+s;
j:=j-i;
end;
result:=temp;
end;

我的字符串里有很多回车符了！网上有MEMO的可见行代码，但是没找到QRRichText可见行的。有没办法获得QRRichText的可见行？

先取源字符串，删除源字符串中回车符，再用我给你的方法，就可以.