做报表时请问怎样才能让QRDBText里的内容自动折行啊（因为内容有点长，如果不折行很难看）？我设置了height和width还是不行啊，

Question

AutoSize为False在OnPrint里在要分行的地方加空格或 #13#10

Answer 1

AutoSize为False
Wordwrap为True
AutoStretch为True

Answer 2

谢谢，那在OnPrint里在要分行的地方加空格或 #13#10
怎么写呢？

Answer 3

我给您提供一种参考，我也遇到了这样的问题，我实在后台的sql数据库中写的自定义函数，返回的一个带有回车的字符串解决的这个问题。

Answer 4

看到这个，我这样做了，还是不行啊：（
Function MitiLine (Str:String;N:Integer):String;
var
L,I:Integer;
 Strs:String;
Begin
     L:=Length(Str);
     L:=Round(L/N+0.5);
     If L=0 Then
     begin
          Result:=Str;
          Exit;
     End;
     For I:=1 To L Do Strs:=Strs+Copy(Str,N*(I-1)+1,N)+#13#10;
     Result:=Strs;
 End;
***************
print.QRDBText3.Caption:=MitiLine(print.QRDBText3.Caption,10);
 print.QuickRep1.Preview;