Dim objExcelApp
Dim FileName
FileName="D:data\bb.xls"
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=False
objExcelApp.Workbooks.Open FileName
objExcelApp.ActiveWorkbook.PrintOut()
objExcelApp.Workbooks.Close()
objExcelApp.Quit()
这段代码只能打印固定的excel
这个是VBS的 可以直接复制过去 修改一下路径就可以了