VBS 开机打印空白页(excel)

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.确定开始后,切换打印机,再切换回正常打印机选型(最后取消打印,如果没有内容excel也不会打印的)

3. 打开宏编辑器(Alt+F11键)
   点开模块1,
   查看代码,
   获取刚才选择过的打印机,
   要最后能打印的复制出来,
   关闭EXCEL就可以了
   

4.复制最后的打印机名称(空格在 no03:)

5. 把vbs文件复制到启动文件夹就可以了