procedure TForm1.QRDBText1Print(sender: TObject;
var Value: String);
Var
ss,s1 :WideString ;
i :integer ;
begin
ss :=trim(Value) ;
s1 :='' ;
i := 1;
while (length(ss)>10)do
begin
i :=i+1 ;
s1 :=s1 + Copy(ss,1,10) +#13 ;
ss :=Copy(ss,11,Length(ss)-10) ;
End ;
if Length(Value)>10 then
Value :=s1 +ss ;
QRDBText1.Top := 0 ;
QRShape1.Top :=0 ;
QRShape1.Height :=QRBand1.Height +(i-1)*QRDBText1.Height ;
end;
搞了一会，效果好象不是很好，你看看，代码对你也许有点提示作用。
