请教一个打印的问题。

Question

如何把dbgrid中的内容打印出来？我有一个database控件、一个datasource控件、一个query控件和一dbgrid控件，我已经把数据查到dbgrid里的，就是不知如何打印出来，还要添加什么控件？代码怎样写？谢谢。

Answer 1

用DELPHI自带的QR，在控件中有。

Answer 2

用我的保你满意！http://www.csdn.net/cnshare/soft/15/15471.shtm

Answer 3

我新建了一个report，但不知怎样打印。能给出一些代码吗？

Answer 4

把QRREPORT中加入QRBAND，并设置相应的属性，往一个QRBAND中加入QRDBTEXT，把它和QUERY1的相应字段联系，然后在主窗体中加入QRREPORT1.preview语句即可。

Answer 5

请问QRERPRT在哪个版面啊？谢谢

Answer 6

大家请帮忙，我现在只能打印dbgrid中的最后一条数据。

Answer 7

其实你完全可以自己编写对象方法而不且QR
会用数据流吗？不用流数据也可以，代码如下：
  procedure Tform1.printAllbuttonclick(sender////);
  var
   printfile:Textfile;
  begin
   assignprn(printfile);
   rewrite(printfile);
   try
     printer.canvas.font:=font;
     try
        query1.disablecontrols;
        try
           query1.first;
           while not query1.eof do
           begin
              writeln(printfile,query1.fieldbyname('....'),;;;;_);
              writeln...
              ... 相应字段
              query1.next;
           end;
        finally
           query1.enablecontrols'
        end;
     finally
        colsefile(printfile);
    end;

Answer 8

当我执行prnt.quickreport1.preview里，主窗体中的dbgrid的指针就从第一条记录到最后一条记录，然后就只能打印出最后的一条记录，不知为什么？