fastreport4.3打印dbgrid控件里面的数据

Question

哥哥姐姐，跪求了。我真的是要发疯了
如果谁有类似的DEMO可以传份给我的话，万分感谢。
本人小菜鸟一只，希望各位大大帮帮我啊。现在分不多，等我以后分多了，
一定多多帮助别人。

Answer 1

在dbgrid里面不用控件一样的可以打印，怎么写的一时也想不起来！
万一不行就转换到excel里就好处理了

Answer 2

作ｅｘｃｅｌ的吗？
if datam.ADOQuwantonlyrain.Active=true then
  begin
  try
    Excelapplication1.Connect;
  except
    MessageDlg('Excel可能没有安装', mtError, [mbOk], 0);
    Abort;
  end;  ExcelApplication1.Visible[0] := True;
  try
    empty := EmptyParam;
    ExcelApplication1.Workbooks.Add(empty,0);
    ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[
                                         ExcelApplication1.Workbooks.Count]);
    ExcelWorkBook1.Activate ;
    ExcelWorksheet1.ConnectTo((ExcelWorkbook1.Worksheets[1] as _WorkSheet));
    for  j:=1 to datam.ADOQuwantonlyrain.RecordCount do
    begin
      for i:=1 to datam.ADOQuwantonlyrain.fields.Count  do
      begin
        excelworksheet1.Cells.Item[j,i]:=datam.ADOQuwantonlyrain.fields[i-1].AsString+#13;
      end;
      datam.ADOQuwantonlyrain.Next;
    end;
  except
    ExcelWorkBook1.Close(xlDoNotSaveChanges);
    ExcelApplication1.Disconnect;
  end;
 end else showmessage('无数据可保存！');

Answer 3

我晕  try 
    empty := EmptyParam; 
    ExcelApplication1.Workbooks.Add(empty,0); 
这EMPTY是做什么的？？

Answer 4

噢，我试了下，基本OK了   但是导入到EXECL里面后没有列名，只有列的数据  我想增加列名，这该怎么办呢