易语言取打印机列队

lanye

易语言可以获取默认打印机列队数量 和 清空打印机列队吗

haoren1212

cmd命令，通过获取打印机名称里的队列任务id，取消任务

haoren1212

取消特定打印机的所有任务wmic printer where name="打印机名称" call cancelAllJobs，取消单个任务的你可以修改一下判断条件。现在我电脑上只有封装的打印机模块，模块涉及商用不方便发出来，可以等我明天去公司把取消打印机单个任务的发给你

补充内容 (2025-5-12 21:15):
如果你需要的话

lxh1230

  

DLL命令名	返回值类型	公开	备 注
OpenPrinter	整数型		0
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
OpenPrinterA
参数名	类 型	传址	数组	备 注
打印机名称	文本型
打印机句柄	整数型
打印机信息	整数型

DLL命令名	返回值类型	公开	备 注
ClosePrinter	整数型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
ClosePrinter
参数名	类 型	传址	数组	备 注
打印机句柄	整数型

DLL命令名	返回值类型	公开	备 注
EnumJobs	整数型		0
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
EnumJobsA
参数名	类 型	传址	数组	备 注
打印机句柄	整数型
起始作业号	整数型
作业数量	整数型
信息级别	整数型
缓冲	字节型
缓冲大小	整数型
返回大小	整数型

DLL命令名	返回值类型	公开	备 注
GetDefaultPrinter	整数型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
GetDefaultPrinterA
参数名	类 型	传址	数组	备 注
打印机名称	文本型
大小	整数型

子程序名	返回值类型	公开	备 注
获取打印机队列数量	整数型

变量名	类 型	静态	数组	备 注
打印机名称	文本型
大小	整数型
打印机句柄	整数型
作业数量	整数型
返回大小	整数型
缓冲区	字节型

// 获取默认打印机名称
大小 = 256
如果 (GetDefaultPrinter (打印机名称, 大小) = 0) 则
返回 (0)
结束

// 打开打印机
如果 (OpenPrinter (打印机名称, 打印机句柄, 0) = 0) 则
返回 (0)
结束

// 先获取需要的缓冲区大小
EnumJobs (打印机句柄, 0, 999, 1, 缓冲区, 0, 返回大小)

// 分配足够的缓冲区
重新定义数组 (缓冲区, 返回大小)

// 枚举作业
如果 (EnumJobs (打印机句柄, 0, 999, 1, 缓冲区, 返回大小, 返回大小) > 0) 则
// 计算作业数量（每个作业结构大小为48字节）
作业数量 = 返回大小 / 48
否则
作业数量 = 0
结束

// 关闭打印机
ClosePrinter (打印机句柄)

返回 (作业数量)
.子程序结束

DLL命令名	返回值类型	公开	备 注
OpenPrinter	整数型		0
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
OpenPrinterA
参数名	类 型	传址	数组	备 注
打印机名称	文本型
打印机句柄	整数型
打印机信息	整数型

DLL命令名	返回值类型	公开	备 注
ClosePrinter	整数型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
ClosePrinter
参数名	类 型	传址	数组	备 注
打印机句柄	整数型

DLL命令名	返回值类型	公开	备 注
SetPrinter	整数型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
SetPrinterA
参数名	类 型	传址	数组	备 注
打印机句柄	整数型
级别	整数型
缓冲	整数型
标志	整数型

DLL命令名	返回值类型	公开	备 注
GetDefaultPrinter	整数型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
GetDefaultPrinterA
参数名	类 型	传址	数组	备 注
打印机名称	文本型
大小	整数型

子程序名	返回值类型	公开	备 注
清空打印机队列	逻辑型

变量名	类 型	静态	数组	备 注
打印机名称	文本型
大小	整数型
打印机句柄	整数型

// 获取默认打印机名称
大小 = 256
如果 (GetDefaultPrinter (打印机名称, 大小) = 0) 则
返回 (假)
结束

// 打开打印机
如果 (OpenPrinter (打印机名称, 打印机句柄, 0) = 0) 则
返回 (假)
结束

// 取消所有打印作业
如果 (SetPrinter (打印机句柄, 0, 0, 4) = 0) 则  // 4 表示 PRINTER_CONTROL_PURGE
ClosePrinter (打印机句柄)
返回 (假)
结束

// 关闭打印机
ClosePrinter (打印机句柄)

返回 (真)
.子程序结束

.版本 2<br /> <br /> .DLL命令 OpenPrinter, 整数型, "winspool.drv", "OpenPrinterA", 公开, 0<br />     .参数 打印机名称, 文本型, 传址<br />     .参数 打印机句柄, 整数型, 传址<br />     .参数 打印机信息, 整数型, 传址<br /> .DLL命令 ClosePrinter, 整数型, "winspool.drv", "ClosePrinter", 公开<br />     .参数 打印机句柄, 整数型<br /> .DLL命令 EnumJobs, 整数型, "winspool.drv", "EnumJobsA", 公开, 0<br />     .参数 打印机句柄, 整数型<br />     .参数 起始作业号, 整数型<br />     .参数 作业数量, 整数型<br />     .参数 信息级别, 整数型<br />     .参数 缓冲, 字节型, 传址<br />     .参数 缓冲大小, 整数型<br />     .参数 返回大小, 整数型, 传址<br /> .DLL命令 GetDefaultPrinter, 整数型, "winspool.drv", "GetDefaultPrinterA", 公开<br />     .参数 打印机名称, 文本型, 传址<br />     .参数 大小, 整数型, 传址<br /> <br /> .子程序 获取打印机队列数量, 整数型<br /> .局部变量 打印机名称, 文本型, , 256<br /> .局部变量 大小, 整数型<br /> .局部变量 打印机句柄, 整数型<br /> .局部变量 作业数量, 整数型<br /> .局部变量 返回大小, 整数型<br /> .局部变量 缓冲区, 字节型, , 10240<br /> <br />     // 获取默认打印机名称<br />     大小 = 256<br />     如果 (GetDefaultPrinter (打印机名称, 大小) = 0) 则<br />         返回 (0)<br />     结束<br />     <br />     // 打开打印机<br />     如果 (OpenPrinter (打印机名称, 打印机句柄, 0) = 0) 则<br />         返回 (0)<br />     结束<br />     <br />     // 先获取需要的缓冲区大小<br />     EnumJobs (打印机句柄, 0, 999, 1, 缓冲区, 0, 返回大小)<br />     <br />     // 分配足够的缓冲区<br />     重新定义数组 (缓冲区, 返回大小)<br />     <br />     // 枚举作业<br />     如果 (EnumJobs (打印机句柄, 0, 999, 1, 缓冲区, 返回大小, 返回大小) > 0) 则<br />         // 计算作业数量（每个作业结构大小为48字节）<br />         作业数量 = 返回大小 / 48<br />     否则<br />         作业数量 = 0<br />     结束<br />     <br />     // 关闭打印机<br />     ClosePrinter (打印机句柄)<br />     <br />     返回 (作业数量)<br /> .子程序结束<br /> .版本 2<br /> <br /> .DLL命令 OpenPrinter, 整数型, "winspool.drv", "OpenPrinterA", 公开, 0<br />     .参数 打印机名称, 文本型, 传址<br />     .参数 打印机句柄, 整数型, 传址<br />     .参数 打印机信息, 整数型, 传址<br /> .DLL命令 ClosePrinter, 整数型, "winspool.drv", "ClosePrinter", 公开<br />     .参数 打印机句柄, 整数型<br /> .DLL命令 SetPrinter, 整数型, "winspool.drv", "SetPrinterA", 公开<br />     .参数 打印机句柄, 整数型<br />     .参数 级别, 整数型<br />     .参数 缓冲, 整数型, 传址<br />     .参数 标志, 整数型<br /> .DLL命令 GetDefaultPrinter, 整数型, "winspool.drv", "GetDefaultPrinterA", 公开<br />     .参数 打印机名称, 文本型, 传址<br />     .参数 大小, 整数型, 传址<br /> <br /> .子程序 清空打印机队列, 逻辑型<br /> .局部变量 打印机名称, 文本型, , 256<br /> .局部变量 大小, 整数型<br /> .局部变量 打印机句柄, 整数型<br /> <br />     // 获取默认打印机名称<br />     大小 = 256<br />     如果 (GetDefaultPrinter (打印机名称, 大小) = 0) 则<br />         返回 (假)<br />     结束<br />     <br />     // 打开打印机<br />     如果 (OpenPrinter (打印机名称, 打印机句柄, 0) = 0) 则<br />         返回 (假)<br />     结束<br />     <br />     // 取消所有打印作业<br />     如果 (SetPrinter (打印机句柄, 0, 0, 4) = 0) 则  // 4 表示 PRINTER_CONTROL_PURGE<br />         ClosePrinter (打印机句柄)<br />         返回 (假)<br />     结束<br />     <br />     // 关闭打印机<br />     ClosePrinter (打印机句柄)<br />     <br />     返回 (真)<br /> .子程序结束

你的猫

  

DLL命令名	返回值类型	公开	备 注
GetDefaultPrinterA	逻辑型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
GetDefaultPrinterA
参数名	类 型	传址	数组	备 注
pszBuffer	文本型
pcchBuffer	整数型

DLL命令名	返回值类型	公开	备 注
OpenPrinterA	逻辑型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
OpenPrinterA
参数名	类 型	传址	数组	备 注
pPrinterName	文本型
phPrinter	整数型
pDefault	整数型

DLL命令名	返回值类型	公开	备 注
EnumJobsA	逻辑型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
EnumJobsA
参数名	类 型	传址	数组	备 注
hPrinter	整数型
FirstJob	整数型
NoJobs	整数型
Level	整数型
pJob	字节集
cbBuf	整数型
pcbNeeded	整数型
pcReturned	整数型

DLL命令名	返回值类型	公开	备 注
SetJobA	逻辑型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
SetJobA
参数名	类 型	传址	数组	备 注
hPrinter	整数型
JobId	整数型
Level	整数型
pJob	整数型
Command	整数型

DLL命令名	返回值类型	公开	备 注
ClosePrinter	逻辑型
DLL库文件名:
winspool.drv
在DLL库中对应命令名:
ClosePrinter
参数名	类 型	传址	数组	备 注
hPrinter	整数型

常量名称	常量值	公 开	备 注
JOB_CONTROL_DELETE	1
JOB_INFO_LEVEL	1

子程序名	返回值类型	公开	备 注
获取打印机队列数量	整数型

变量名	类 型	静态	数组	备 注
hPrinter	整数型
打印机名称	文本型
缓冲区大小	整数型
作业数量	整数型
缓冲区	字节集
所需大小	整数型
实际返回数	整数型

' 获取默认打印机名称
打印机名称 ＝ 取空白文本 (256)
缓冲区大小 ＝ 256
如果真 (GetDefaultPrinterA (打印机名称, 缓冲区大小) ＝ 假)
返回 (-1)

' 打开打印机
如果真 (OpenPrinterA (打印机名称, hPrinter, 0) ＝ 假)
返回 (-2)

' 获取所需缓冲区大小
EnumJobsA (hPrinter, 0, -1, JOB_INFO_LEVEL, {}, 0, 所需大小, 实际返回数)
如果真 (所需大小 ＝ 0)
ClosePrinter (hPrinter)
返回 (0)  ' 无作业

' 分配缓冲区并枚举作业
缓冲区 ＝ 取空白字节集 (所需大小)
如果真 (EnumJobsA (hPrinter, 0, -1, JOB_INFO_LEVEL, 缓冲区, 所需大小, 所需大小, 实际返回数))
作业数量 ＝ 实际返回数
作业数量 ＝ -3

ClosePrinter (hPrinter)
返回 (作业数量)

子程序名	返回值类型	公开	备 注
清空打印机队列	逻辑型

变量名	类 型	静态	数组	备 注
hPrinter	整数型
打印机名称	文本型
缓冲区大小	整数型
i	整数型
作业ID	整数型

打印机名称 ＝ 取空白文本 (256)
缓冲区大小 ＝ 256
如果真 (GetDefaultPrinterA (打印机名称, 缓冲区大小) ＝ 假)
返回 (假)

如果真 (OpenPrinterA (打印机名称, hPrinter, 0) ＝ 假)
返回 (假)

' 遍历所有作业删除
计次循环首 (100, i)  ' 最多处理100个作业避免死循环
作业ID ＝ i - 1
如果真 (SetJobA (hPrinter, 作业ID, 0, 0, JOB_CONTROL_DELETE))
输出调试文本 (“已删除作业ID：”, 作业ID)

计次循环尾 ()
ClosePrinter (hPrinter)
返回 (真)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
队列数量	整数型

队列数量 ＝ 获取打印机队列数量 ()
判断 (队列数量 ＞ 0)
调试输出 (“当前队列数量：”, 队列数量)
如果 (清空打印机队列 ())
信息框 (“队列已清空”, 0, , )
信息框 (“清空失败”, 0, , )
判断 (队列数量 ＝ 0)
信息框 (“打印队列为空”, 0, , )
信息框 (“获取失败，错误代码：” ＋ 到文本 (队列数量), 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .DLL命令 GetDefaultPrinterA, 逻辑型, "winspool.drv", "GetDefaultPrinterA"<br />     .参数 pszBuffer, 文本型, 传址<br />     .参数 pcchBuffer, 整数型, 传址<br /> <br /> .DLL命令 OpenPrinterA, 逻辑型, "winspool.drv", "OpenPrinterA"<br />     .参数 pPrinterName, 文本型<br />     .参数 phPrinter, 整数型, 传址<br />     .参数 pDefault, 整数型<br /> <br /> .DLL命令 EnumJobsA, 逻辑型, "winspool.drv", "EnumJobsA"<br />     .参数 hPrinter, 整数型<br />     .参数 FirstJob, 整数型<br />     .参数 NoJobs, 整数型<br />     .参数 Level, 整数型<br />     .参数 pJob, 字节集<br />     .参数 cbBuf, 整数型<br />     .参数 pcbNeeded, 整数型, 传址<br />     .参数 pcReturned, 整数型, 传址<br /> <br /> .DLL命令 SetJobA, 逻辑型, "winspool.drv", "SetJobA"<br />     .参数 hPrinter, 整数型<br />     .参数 JobId, 整数型<br />     .参数 Level, 整数型<br />     .参数 pJob, 整数型<br />     .参数 Command, 整数型<br /> <br /> .DLL命令 ClosePrinter, 逻辑型, "winspool.drv", "ClosePrinter"<br />     .参数 hPrinter, 整数型<br /> <br /> .常量 JOB_CONTROL_DELETE, "1"<br /> .常量 JOB_INFO_LEVEL, "1"<br /> <br /> .子程序 获取打印机队列数量, 整数型<br /> .局部变量 hPrinter, 整数型<br /> .局部变量 打印机名称, 文本型<br /> .局部变量 缓冲区大小, 整数型<br /> .局部变量 作业数量, 整数型<br /> .局部变量 缓冲区, 字节集<br /> .局部变量 所需大小, 整数型<br /> .局部变量 实际返回数, 整数型<br /> <br /> ' 获取默认打印机名称<br /> 打印机名称 ＝ 取空白文本 (256)<br /> 缓冲区大小 ＝ 256<br /> .如果真 (GetDefaultPrinterA (打印机名称, 缓冲区大小) ＝ 假)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> ' 打开打印机<br /> .如果真 (OpenPrinterA (打印机名称, hPrinter, 0) ＝ 假)<br />     返回 (-2)<br /> .如果真结束<br /> <br /> ' 获取所需缓冲区大小<br /> EnumJobsA (hPrinter, 0, -1, JOB_INFO_LEVEL, {}, 0, 所需大小, 实际返回数)<br /> .如果真 (所需大小 ＝ 0)<br />     ClosePrinter (hPrinter)<br />     返回 (0)  ' 无作业<br /> .如果真结束<br /> <br /> ' 分配缓冲区并枚举作业<br /> 缓冲区 ＝ 取空白字节集 (所需大小)<br /> .如果真 (EnumJobsA (hPrinter, 0, -1, JOB_INFO_LEVEL, 缓冲区, 所需大小, 所需大小, 实际返回数))<br />     作业数量 ＝ 实际返回数<br /> .否则<br />     作业数量 ＝ -3<br /> .如果真结束<br /> <br /> ClosePrinter (hPrinter)<br /> 返回 (作业数量)<br /> <br /> .子程序 清空打印机队列, 逻辑型<br /> .局部变量 hPrinter, 整数型<br /> .局部变量 打印机名称, 文本型<br /> .局部变量 缓冲区大小, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 作业ID, 整数型<br /> <br /> 打印机名称 ＝ 取空白文本 (256)<br /> 缓冲区大小 ＝ 256<br /> .如果真 (GetDefaultPrinterA (打印机名称, 缓冲区大小) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果真 (OpenPrinterA (打印机名称, hPrinter, 0) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 遍历所有作业删除<br /> .计次循环首 (100, i)  ' 最多处理100个作业避免死循环<br />     作业ID ＝ i - 1<br />     .如果真 (SetJobA (hPrinter, 作业ID, 0, 0, JOB_CONTROL_DELETE))<br />         输出调试文本 (“已删除作业ID：”, 作业ID)<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> ClosePrinter (hPrinter)<br /> 返回 (真)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 队列数量, 整数型<br /> <br /> 队列数量 ＝ 获取打印机队列数量 ()<br /> .判断开始 (队列数量 ＞ 0)<br />     调试输出 (“当前队列数量：”, 队列数量)<br />     .如果 (清空打印机队列 ())<br />         信息框 (“队列已清空”, 0, , )<br />     .否则<br />         信息框 (“清空失败”, 0, , )<br />     .如果结束<br /> .判断 (队列数量 ＝ 0)<br />     信息框 (“打印队列为空”, 0, , )<br /> .默认<br />     信息框 (“获取失败，错误代码：” ＋ 到文本 (队列数量), 0, , )<br /> .判断结束

wh1234567

谢谢分享