如何调用EXCEL直接打印.在线等!!!一经解决立即结贴!

以下是我的代码.就是不能使打印机打印.
COleVariant covNUM((short)1);
COleVariant covString((CString)"hp deskjet 3500 series");
wb1Book.PrintOut(covNUM, covNUM, covNUM, covFalse, covString, 
covFalse, covFalse, covFalse);

解决方案 »

  1.   

    Delphi的源码：ExcelWorksheet.PrintOut(
      EmptyParam, // from
      EmptyParam, // to
      EmptyParam, // copies
      True, // preview
      EmptyParam, // active printer
      EmptyParam, // print to file
      EmptyParam, // collate
      EmptyParam); // file name for print to fileVC中与 EmptyParam 等价的参数为：
    COleVariant varOptional(DISP_E_PARAMNOTFOUND, VT_ERROR);代码如下：
      COleVariant varFalse(FALSE);
      worksheet.PrintOut(varOptional, varOptional, varOptional, varFlase, varOptional, varOptional, varOptional);