打印报表出问题，帮帮忙（140分）

原帖内容如下：
我用ADODATASET查询两个表的结果生成一个数据集，生成的表的字段有，
户籍编号，与户主关系，姓名……
10001    户主      暗暗
10001      子        A
10001      妻        B
10002      户主      V
10002      女        K
10003      户主      E  报表输出的格式要求每一户人家打印一张报表（户籍编号相同的是一家人），就是户口薄，而且每张报表必须已户主开头。
报表是竖排的，我想这个应该关系不大
我用QUICKREP的NEWPAGE属性，可是总是出错，我把代码贴出来，希望各位高手指教，急procedure TForm2.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
  var
  tt:string;
  begin
with  form1.adodataset1 do
begin
next;
if not eof then
begin
  tt:=trim(FieldByName('about').asstring);
  prior;
  if tt='户主' then
        quickrep1.Newpage;
      end;
end;
end;
我要达到的报表的要求是，如果与户主的关系是‘户主’的话，就从新的一页开始打印
回复贴子： 
　chechy(chechy)　回复于2001-9-12 17:44:14   
我觉得弄一个GroupBand，然后将其ForceNewPage设为True。我去给你查一下。  
　kkty(秧子)　回复于2001-9-12 17:54:14   
先谢了可是我的报表是竖排排的，好象不能用GROUPBAND
 
　chechy(chechy)　回复于2001-9-12 17:55:40   
需要建立一个QRGroup，其Expression就是户号字段，你用编辑器设置一下。然后将ForceNewPage设为True。
可以在QRGroup上放一些户信息，比如户号，家庭地址等。