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的 可以直接复制过去 修改一下路径就可以了
[7524]
[2257]
[6407]
[3704]
[5754]
[3373]
[2470]
[2825]
[5151]
[4147]

客服
小程序
公众号