20181106x
VBS 开机打印空白页(excel)
’ 20181106jianpf
'VBS控制打印机打印空白页
'设置网络打印机名称
dim printname
printname="\USER-20170628GA\HP2130 在 Ne03:"
dim oExcel,oWb,oSheet
Set oExcel= CreateObject(“Excel.Application”)
oExcel.Visible = True
oExcel.Caption = “应用程序调用 Microsoft Excel”
oExcel.WorkBooks.Add
'oExcel.Cells(1,1).Value = " "
oExcel.Application.ActivePrinter = printname
oExcel.ExecuteExcel4Macro “PRINT(2,1,1,1,1,TRUE,FALSE)”
'oExcel.workbooks.close
oExcel.quit
1.获取Excel打印机名称:
在excel中宏录制
2.确定开始后,切换打印机,再切换回正常打印机选型