贴出代码，望高手指点。
//打印数据表格
function PrintCxGrid(AGrid: TcxGrid): String;
var
  sTmpFile: String;
  eclApp, srcWorkBook: Variant;
begin
  //生成临时文件的文件名
  sTmpFile := ExtractFilePath(Application.ExeName) + 'E' + FormatDateTime('YYMMDDHHMMSS', Date + Time) + '.tmp';

  //
  try
    Screen.Cursor := crHourGlass;

    //
    try
      eclApp := CreateOleObject('Excel.Application');
      srcWorkBook := CreateOleobject('Excel.Sheet');
    except
      Result := 'Microsoft Excel Not Support In Your System!';
      Exit;
    end;

    //生成并打开临时文件
    ExportGrid4ToExcel(sTmpFile, AGrid, True, True, False, 'tmp');
    srcWorkBook := eclApp.WorkBooks.Open(sTmpFile);

    //开始打印
    srcWorkBook.ActiveSheet.PageSetup.Orientation := 2;
    srcWorkBook.ActiveSheet.PageSetup.CenterHeader := '表头';
    srcWorkBook.ActiveSheet.PageSetup.CenterFooter := '表尾';
    eclApp.Visible := True;
    srcWorkBook.ActiveSheet.PrintPreview;
  finally
    //退出Excel Application
    eclApp.Quit;
    eclApp := Unassigned;

    //删除临时文件
    if FileExists(sTmpFile) then
      while FileExists(sTmpFile) do
        DeleteFile(PChar(sTmpFile));

    //
    Screen.Cursor := crDefault;
  end;
end;

其中的ExportGrid4ToExcel(sTmpFile, AGrid, True, True, False, 'tmp');是cx控件自带的。
调试的时候可以直接用一个现成的excel打开就可以了。

ding.............

最近我也在用这个 导出Excel表的。 
你用的是自带的servers控件 中的控件吗？
你的问题 太难了 ，我去请高手给你 看看吧。
等有结果了 一定来这里 回复你的。

呵呵，谢谢！
顶~~~~

顶~~~~~~~~~~~~~~~

哎，又要石沉海底了吗？？？？？？？？？

没法顶了！！

ExportGrid4ToExcel：这个东西好象本来就很慢！！
上千条就不怎么样了。

你怎么可以连续回复4次，不是不能超过3次吗

导EXCEL，OLE方式总归不可能有直接写文件快的，下面这个使用了Excel内置的取数据集功能，速度快一些，供您参考：）

procedure RsToExcel(AdoQuery1: TAdoQuery; ExcelFileName: string);
var
  ExcelApp, Book, Sheet, Range, xlQuery: OleVariant;
begin
  if not ADOQuery1.Active then
    ADOQuery1.Open;

  ExcelApp := CreateOleObject( 'Excel.Application' );  //创建
  try
    if ExcelApp.Workbooks.count < 1 then
      ExcelApp.WorkBooks.Add;
    Book := ExcelApp.Workbooks[1];
    if Book.Worksheets.Count < 1 then
      Book.Worksheets.Add;
    Sheet := Book.Worksheets[1];

    xlQuery := Sheet.QueryTables.Add(ADOQuery1.Recordset, Sheet.Range['A3']);
    //xlQuery.FieldNames := false;
    xlQuery.Refresh;

    Sheet.SaveAs(ExcelFileName);
  finally
    Sheet := Unassigned;
    Book := Unassigned;
    if not VarIsEmpty(ExcelApp) then
      ExcelApp.Quit;
    ExcelApp := Unassigned;
    if ADOQuery1.Active then ADOQuery1.Close;
  end;
end;

还有用OLE时如果要设置格式的话，速度也会大受影响，所以除非十分必要，要快就不要设格式了

这两天也看过些文章，的确都说如果用OLE方式的话，速度是肯定提不上去的。
而且，这样的方式一定要保证客户机器上一定已经装了excel才行啊！

最快的肯定是直接写二进制文件了
Excel文件格式是一种BIFF格式（Binary File Format）

进一步的说明：
http://www.moon-soft.com/program/FORMAT/data/xls.txt