谁有好的listview打印法？(155分)

要打印listview包括有子项的数据，各位有啥好方法？输出到文体虽然
简单，但不齐整。最好还是用QR打印，有完整的方案吗？

有Quickerep1,QrBand1 (BandType:=rbDetail),Qrlable1-4,ListView1(比如下有三个子项)
var
CurrentItem :integer;
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
CurrentItem:=0;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
if CurrentItem<ListView1.Items.count then
begin
QrLabel1.caption:=ListView1.items[CurrentItem].caption;
QrLabel2.caption:=ListView1.items[CurrentItem].SubItems[1];
QrLabel3.caption:=ListView1.items[CurrentItem].subItems[0];
QrLabel4.caption:=ListView1.items[CurrentItem].subItems[2];
end;
inc(CurrentItem);
MoreData:=CurrentItem<=ListView1.Items.count;
end;

你真好野，一下拿了我这么多分，是你的。Thanks!

不客气，谢谢你的分：）

可否再问一下：如果我有2个listview要打印呢？(在同一页)