急用！！

sqlquery:='select ry_bh as 人员编号,ry_mc as 人员名称,sex as 性别,ry_sf as 身份,';
  sqlquery1:='zzmm as 政治面貌,whcd as 文化程度,jszw as 技术职务,zyjn as 专业技能,';
  sqlquery2:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+25,10) else '''' end) )as 发证日期,';
  sqlquery3:='(select ( case when charindex(''行政处罚听证主持人资格证'',zfzj) <> 0 then substring(zfzj,charindex(''发证日期'',zfzj)+69,10) else '''' end) )as 资格证号码';  sqllast:='from rypb where ry_bh like'+ ''''+bh+'%'''+' and zfzj like ''%行政处罚听证%''';
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(sqlquery);
  adoquery1.SQL.Add(sqlquery1);
  adoquery1.SQL.Add(sqlquery2);
  adoquery1.SQL.Add(sqlquery3);
  adoquery1.SQL.Add(sqllast);
  adoquery1.Open;
我在adoquery中这样做的
在打印窗口中，怎么打印这些字段？