如何打印Excel文件？

Question

使用TExcelApplication控件
var 
  sheet:variant;
begin
  excelapplication1.connect;
  sheet=excelapplication1.sheets(1)
  sheet.printpreview
  excelapplication.disconnect;
end;

Answer 1

如果不使用TExcelApplication控件的话，直接使用ole创建一个对象，然后调用excel的printpreview方法即可

Answer 2

    if VarIsEmpty(XlsApp) then
      XlsApp := Createoleobject('Excel.Application');
    XLsApp.Workbooks.Add;
    XlsSheet := XLsApp.Worksheets['Sheet1'];
  except
    Application.MessageBox(pchar('Ms Excel 无法启动,数据转入终止!'),pchar('注意'),mb_ok);
    Abort;
  end;