vbs控制打印机停止打印

WIN7系统下取消打印任务

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

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

3.找到打印机的图标。

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

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

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

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

VBS如何将数据输出到文件？比如说生成一个数，把它输入到文本文件中，或是从文本里里面读取一个数？

解析:

写数据

zt_dm = Text1.Text

Open "C:\ldgz\zt.txt" For Output As #1

Print #1, zt_dm

Close

读数据

Open "c:\ldgz\zt1.txt" For Input As #1

Input #1, zt_dm

Close

Text2.Text = zt_dm

zt_dm是自己定义的变量，以下提供MSDN关于文件 *** 作的叙述供参考：

Open 语句

能够对文件输入/输出 (I/O)。

语法

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

Open 语句的语法具有以下几个部分：

部分 描述

pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。

mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。

access 可选。关键字，说明打开的文件可以进行的 *** 作，有 Read、Write、或 Read Write *** 作。

lock 可选。关键字，说明限定于其它进程打开的文件的 *** 作，有 Shared、Lock Read、Lock Write、和 Lock Read Write *** 作。

filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。

reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。

Input # 语句

从已打开的顺序文件中读出数据并将数据指定给变量。

语法

Input #filenumber, varlist

Input # 语句的语法具有以下几个部分：

部分 描述

filenumber 必要。任何有效的文件号。

varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些变量不可能是一个数组或对象变量。但是，可以使用变量描述数组元素或用户定义类型的元素。

说明

通常用 Write # 将 Input # 语句读出的数据写入文件。该语句只能用于以 Input 或 Binary 方式打开的文件。

Print # 语句

将格式化显示的数据写入顺序文件中。

语法

Print #filenumber, [outputlist]

Print # 语句的语法具有以下几个部分：

部分 描述

filenumber 必要。任何有效的文件号。

outputlist 可选。表达式或是要打印的表达式列表。

Write # 语句

将数据写入顺序文件。

语法

Write #filenumber, [outputlist]

Write # 语句的语法具有以下几个部分：

部分 描述

filenumber 必要。任何有效的文件号。

outputlist 可选。要写入文件的数值表达式或字符串表达式，用一个或多个逗号将这些表达式分界。

说明

通常用 Input # 从文件读出 Write # 写入的数据。

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”即可。

---