打印问题：如何折行打印。

在窗口上放TquickReport组件 quickReport1，并在上面放Tband组件band1，BandType:=Detail，在Tband 组件上放两个QRLabel组件QRLabel1和QRLabel2(以你的意思)，在quickReport1的OnNeedData事件中写如下代码： procedure TForm1.QuickRep1NeedData(Sender:TObject; var MoreData: Boolean);
var
I: integer;
begin
MoreData := True;
for I:= 1 to 2 do
begin
if Table1.Eof then Break;
case I of
1: QRLabel1.Caption := copy(Table1.FieldByName('Name').AsString,1,20);
2: QRLabel2.Caption := copy(Table1.FieldByName('Name').AsString,21,
                             length(Table1.FieldByName('Name').AsString));
end;
Table1.Next;
end;
if Table1.Eof then MoreData := False;
end;