高分求 实现报表与打印功能的代码!!!

Question

主要要求如下:   首先在form1上能够实现数据查询(自己会),然后点一下form1上的preview和print按纽就可以实现对找到的数据进行打印!!  请发到我的信箱  [email protected]
谢谢

Answer 1

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select 收文日期,收文编号,文号,分类号,来文单位,发文日期,文件名称');
query1.SQL.Add('from file2 where 序号='''+edit7.text+'''');
Query1.Open;
QRRichText2.Lines.Text:=Query1.fieldbyname('收文编号').AsString;;
QRRichText3.Lines.Text:=Query1.fieldbyname('来文单位').AsString;;
QRRichText4.Lines.Text:=Query1.fieldbyname('文号').AsString;;
QRRichText1.Lines.Text:=Query1.fieldbyname('文件名称').AsString;;
quickrep1.print;

Answer 2

呵呵，什么都不用，只在用EHlib控件组，所见即所得的打印。
放上一个PrintDBEh组件，将它的DbGrid设置成你的Grid，然后再调用它的Preivew即可！