vbs控制打印机停止打印

WIN7系统下取消打印任务

1.点击电脑左下角【开始】菜单项，选择【控制面板】。

2.选择【查看设备和打印机】。

3.找到打印机的图标桥腊。

4.右键单击打印机图标，选择【友消返查看现在正在打印什么】。

5.选择左上角【打印机】里面的【取消所有文好饥档】。

6.完成上述 *** 作后，关闭打印机电源，拔掉USB数据线，重启电脑，打印机任务自动取消。

filterstr=inputbox("请输入不要打印的文件，用逗号分隔。如2,1表示文件名包含2或者1的不打印，输入*表示打印所有：")

filtered=false

printme=true

if filterstr<>"*" and filterstr<>"" then

filtered=true

filterlist=split(filterstr,",")

end if

if filterstr<>"" then

Set WshShell = WScript.CreateObject("WScript.Shell")

printsub(WshShell.CurrentDirectory)

msgbox "完工啦！"

end if

Sub printsub(byval curdc)

Set FSO =CreateObject("Scripting.FileSystemObject")

Set WD = CreateObject("如竖陵Excel.Application")

wd.visible=false

Set FD = FSO.GetFolder(curdc)

Set FN = FD.Files

For Each F1 In FN

if filtered then

printme=true

for each fl in filterlist

if Instr(LCase(Left(F1.Name,len(F1.Name)-3)),fl)<>0 then

printme=false

end if

next

end if

If UCase(Right(F1.Name, 3)) = "XLS" and printme Then

Set myWork = GetObject(FD.Path &"\" &F1.Name)

Set mySheet = GetObject(FD.Path &"\" &F1.Name).Worksheets(1)

mySheet.PrintOut

myWork.Close saveChanges=False

End If

Next

wd.visible=true

WD.Quit

Set SubFD=FD.SubFolders

For Each folder in SubFD

printsub(folder.Path)

Next

Set SubFD=nothing

set fn=nothing

set fd=nothing

Set WD = Nothing

Set FSO = Nothing

End Sub

如果你是excel2007以纤虚上的，请渣戚把代码中的“XLS”改成“LSX”即可。

filterstr=inputbox("请输入不要打瞎散旦印的文件，用逗掘雹号分隔。如2,1表示文件名包含磨扰2或者1的不打印，输入*表示打印所有：") filtered=false printme=true if filterstr"*" and filterstr"" then filtered=true filterlist=split(filterstr,",") end i...

---