查询后连续打印(100分)

我要用QuickReport把ADOQuery1查询出来的所有记录（不止一条记录）自动都打印出来
（即报表格式是同一张，而内容随数据不同而不同，因此有几条记录就应有几张报表），
以上功能如何实现，请高手赐教！我用的是Delphi5。

　多加一个adoquery2
var i:integer name:string;
for i:=0 to adoquery1.recordcount-1do
begin
name:=adoquery1.fieldbyname(字段名).asstring;
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('select form ......where......."'+name+'"') ;
adoquery2.open;
begin
{打印}
end;

end

接受答案了.