易如何一键设置黑白打印或仅彩色打印或者全部颜色打印？

wh1234567

易如何一键设置黑白打印或仅彩色打印或者全部颜色打印？

haoren1212

调用打印机模板（副本），没法设置只能手动

xizhihan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
打印机名称	文本型

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

打印机名称 ＝ 取默认打印机名称 ()  ' 获取当前默认打印机

子程序名	返回值类型	公开	备 注
_按钮_黑白打印_被单击

设置打印颜色模式 ("黑白")  ' ‌:ml-citation{ref="2,6" data="citationList"}

子程序名	返回值类型	公开	备 注
_按钮_彩色打印_被单击

设置打印颜色模式 ("彩色")  ' ‌:ml-citation{ref="2,3" data="citationList"}

子程序名	返回值类型	公开	备 注
设置打印颜色模式
参数名	类 型	参考	可空	数组	备 注
模式	文本型

变量名	类 型	静态	数组	备 注
命令行	文本型

' 通过rundll32调用系统打印配置组件‌:ml-citation{ref="5" data="citationList"}
命令行 ＝ "rundll32 printui.dll,PrintUIEntry /y /n """ + 打印机名称 + """ /e /q /h /m """ + 模式 + """"
执行 (, 命令行, 假, #隐藏窗口, )
' 备用方案：修改注册表设置（需管理员权限）
写注册项 ( #本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData", "ColorMode", 选择 (模式 ＝ "黑白", 2, 1))

.版本 2<br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 打印机名称, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 打印机名称 ＝ 取默认打印机名称()  ' 获取当前默认打印机<br /> <br /> .子程序 _按钮_黑白打印_被单击<br /> 设置打印颜色模式("黑白")  ' ‌:ml-citation{ref="2,6" data="citationList"}<br /> <br /> .子程序 _按钮_彩色打印_被单击<br /> 设置打印颜色模式("彩色")  ' ‌:ml-citation{ref="2,3" data="citationList"}<br /> <br /> .子程序 设置打印颜色模式<br /> .参数 模式, 文本型<br /> .局部变量 命令行, 文本型<br /> <br /> ' 通过rundll32调用系统打印配置组件‌:ml-citation{ref="5" data="citationList"}<br /> 命令行 ＝ "rundll32 printui.dll,PrintUIEntry /y /n """ + 打印机名称 + """ /e /q /h /m """ + 模式 + """"<br /> 执行 (, 命令行, 假, #隐藏窗口, )<br /> <br /> ' 备用方案：修改注册表设置（需管理员权限）<br /> 写注册项 (#本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData", "ColorMode", 选择 (模式 ＝ "黑白", 2, 1))

wh1234567

xizhihan 发表于 2025-4-8 19:33
[e=0].版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 打印机名称, 文本型

非常感谢，
提示“错误(37): 找不到指定的命令／子程序／Dll命令调用名称“取默认打印机名称”。”
另外，如何确定设置是否成功？如何查看当前是什么模式（是黑白还是彩色）？

xizhihan

wh1234567 发表于 2025-4-8 23:11
非常感谢，
提示“错误(37): 找不到指定的命令／子程序／Dll命令调用名称“取默认打印机名称”。”
另外 ...

  

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

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

变量名	类 型	静态	数组	备 注
缓冲区大小	整数型
结果	逻辑型

缓冲区大小 ＝ 1024  ' 初始缓冲区大小
打印机名称 ＝ 取空白文本 (缓冲区大小)  ' 预分配空间
结果 ＝ GetDefaultPrinter (打印机名称, 缓冲区大小)
如果真 (结果 ＝ 假)  ' 如果首次获取失败
' 获取所需缓冲区大小
GetDefaultPrinter (0, 缓冲区大小)
打印机名称 ＝ 取空白文本 (缓冲区大小)  ' 重新分配正确大小
结果 ＝ GetDefaultPrinter (打印机名称, 缓冲区大小)

如果真 (结果)
' 去除字符串中的空字符
打印机名称 ＝ 取文本左边 (打印机名称, 寻找文本 (打印机名称, 字符 (0), , 假) － 1)
信息框 ("无法获取默认打印机", 16, "错误", )

.版本 2<br /> .DLL命令 GetDefaultPrinter, 逻辑型, "winspool.drv", "GetDefaultPrinterW"<br />     .参数 pszBuffer, 文本型, 传址  ' 接收打印机名称的缓冲区<br />     .参数 pcchBuffer, 整数型, 传址  ' 缓冲区大小（输入时为容量，输出时为实际长度）<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 缓冲区大小, 整数型<br /> .局部变量 结果, 逻辑型<br /> <br /> 缓冲区大小 ＝ 1024  ' 初始缓冲区大小<br /> 打印机名称 ＝ 取空白文本(缓冲区大小)  ' 预分配空间<br /> 结果 ＝ GetDefaultPrinter(打印机名称, 缓冲区大小)<br /> <br /> .如果真 (结果 ＝ 假)  ' 如果首次获取失败<br />     ' 获取所需缓冲区大小<br />     GetDefaultPrinter(0, 缓冲区大小)<br />     打印机名称 ＝ 取空白文本(缓冲区大小)  ' 重新分配正确大小<br />     结果 ＝ GetDefaultPrinter(打印机名称, 缓冲区大小)<br /> .如果真结束<br /> <br /> .如果真 (结果)<br />     ' 去除字符串中的空字符<br />     打印机名称 ＝ 取文本左边(打印机名称, 寻找文本(打印机名称, 字符(0), , 假) － 1)<br /> .否则<br />     信息框("无法获取默认打印机", 16, "错误", )<br /> .如果真结束

以上内容是对那个函数的修补

  

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

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

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

子程序名	返回值类型	公开	备 注
取当前颜色模式	整数型

变量名	类 型	静态	数组	备 注
hPrinter	整数型
需要大小	整数型
缓冲区	字节集
模式标识	整数型

OpenPrinter (打印机名称, hPrinter, 0)
如果真 (hPrinter ＝ 0)
返回 -1  ' 打开失败

' 第一次调用获取所需缓冲区大小
GetPrinter (hPrinter, 9, { }, 0, 需要大小)
缓冲区 ＝ 取空白字节集 (需要大小)
如果真 (GetPrinter (hPrinter, 9, 缓冲区, 需要大小, 需要大小))
' 解析PRINTER_INFO_9结构中的颜色设置
' 注意：偏移量可能因系统版本不同而变化，这里以Win10为例
模式标识 ＝ 取字节集数据 (缓冲区, #整数型, 21)  ' pDevMode->dmColor
模式标识 ＝ -1

ClosePrinter (hPrinter)
返回 模式标识

.版本 2<br /> .DLL命令 OpenPrinter, 逻辑型, "winspool.drv", "OpenPrinterW"<br />     .参数 pPrinterName, 文本型<br />     .参数 phPrinter, 整数型, 传址<br />     .参数 pDefault, 整数型<br /> <br /> .DLL命令 ClosePrinter, 逻辑型, "winspool.drv", "ClosePrinter"<br />     .参数 hPrinter, 整数型<br /> <br /> .DLL命令 GetPrinter, 逻辑型, "winspool.drv", "GetPrinterW"<br />     .参数 hPrinter, 整数型<br />     .参数 Level, 整数型<br />     .参数 pPrinter, 字节集<br />     .参数 cbBuf, 整数型<br />     .参数 pcbNeeded, 整数型, 传址<br /> <br /> .子程序 取当前颜色模式, 整数型<br /> .局部变量 hPrinter, 整数型<br /> .局部变量 需要大小, 整数型<br /> .局部变量 缓冲区, 字节集<br /> .局部变量 模式标识, 整数型<br /> <br /> OpenPrinter(打印机名称, hPrinter, 0)<br /> .如果真 (hPrinter ＝ 0)<br />     返回 -1  ' 打开失败<br /> .如果真结束<br /> <br /> ' 第一次调用获取所需缓冲区大小<br /> GetPrinter(hPrinter, 9, { }, 0, 需要大小)<br /> 缓冲区 ＝ 取空白字节集(需要大小)<br /> <br /> .如果真 (GetPrinter(hPrinter, 9, 缓冲区, 需要大小, 需要大小))<br />     ' 解析PRINTER_INFO_9结构中的颜色设置<br />     ' 注意：偏移量可能因系统版本不同而变化，这里以Win10为例<br />     模式标识 ＝ 取字节集数据(缓冲区, #整数型, 21)  ' pDevMode->dmColor<br /> .否则<br />     模式标识 ＝ -1<br /> .如果真结束<br /> <br /> ClosePrinter(hPrinter)<br /> 返回 模式标识

这些是验证

  

子程序名	返回值类型	公开	备 注
设置打印颜色模式
参数名	类 型	参考	可空	数组	备 注
模式	文本型

变量名	类 型	静态	数组	备 注
预期值	整数型
当前模式	整数型

预期值 ＝ 选择 (模式 ＝ "黑白", 2, 1)  ' 注册表值对应
' 先尝试注册表修改
写注册项 ( #本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData", "ColorMode", 预期值)
' 验证设置结果（双重检查）
如果真 (取注册项 ( #本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData\ColorMode", ) ≠ 预期值)
信息框 ("注册表写入失败！", 16, "错误", )
当前模式 ＝ 取当前颜色模式 ()
判断 (当前模式 ＝ -1)
信息框 ("模式cha询失败，请检查驱动支持", 48, "提示", )
判断 (当前模式 ≠ 预期值)
信息框 ("设置未生效，可能需要重启打印服务", 48, "警告", )
信息框 ("成功设置为" + 模式 + "模式", 64, "成功", )

.子程序 设置打印颜色模式<br /> .参数 模式, 文本型<br /> .局部变量 预期值, 整数型<br /> .局部变量 当前模式, 整数型<br /> <br /> 预期值 ＝ 选择(模式 ＝ "黑白", 2, 1)  ' 注册表值对应<br /> <br /> ' 先尝试注册表修改<br /> 写注册项(#本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData", "ColorMode", 预期值)<br /> <br /> ' 验证设置结果（双重检查）<br /> .如果真 (取注册项(#本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData\ColorMode", ) ≠ 预期值)<br />     信息框("注册表写入失败！", 16, "错误", )<br /> .否则<br />     当前模式 ＝ 取当前颜色模式()<br />     .判断开始 (当前模式 ＝ -1)<br />         信息框("模式cha询失败，请检查驱动支持", 48, "提示", )<br />     .判断 (当前模式 ≠ 预期值)<br />         信息框("设置未生效，可能需要重启打印服务", 48, "警告", )<br />     .默认<br />         信息框("成功设置为" + 模式 + "模式", 64, "成功", )<br />     .判断结束<br /> .如果真结束

这是改进后的设置验证流程

  

子程序名	返回值类型	公开	备 注
_按钮_测试_被单击

变量名	类 型	静态	数组	备 注
测试模式	整数型

测试模式 ＝ 取当前颜色模式 ()
判断 (测试模式 ＝ 1)
信息框 ("当前为彩色模式", 0, "测试结果", )
判断 (测试模式 ＝ 2)
信息框 ("当前为黑白模式", 0, "测试结果", )
信息框 ("无法识别的模式：" + 到文本 (测试模式), 16, "错误", )

.子程序 _按钮_测试_被单击<br /> .局部变量 测试模式, 整数型<br /> <br /> 测试模式 ＝ 取当前颜色模式()<br /> .判断开始 (测试模式 ＝ 1)<br />     信息框("当前为彩色模式", 0, "测试结果", )<br /> .判断 (测试模式 ＝ 2)<br />     信息框("当前为黑白模式", 0, "测试结果", )<br /> .默认<br />     信息框("无法识别的模式：" + 到文本(测试模式), 16, "错误", )<br /> .判断结束

打印机兼容性测试

wh1234567

xizhihan 发表于 2025-4-9 19:32
[e=0].版本 2
.DLL命令 GetDefaultPrinter, 逻辑型, "winspool.drv", "GetDefaultPrinterW"
    .参数 ps ...

老师能不能上传源码文件？

xizhihan

wh1234567 发表于 2025-4-9 20:50
老师能不能上传源码文件？

抱歉，我最近有点忙，只能在手机上写写源码了。

wh1234567

xizhihan 发表于 2025-4-10 19:21
抱歉，我最近有点忙，只能在手机上写写源码了。

写注册项   错误(39): 为某支持库命令提供了过多的参数。

补充内容 (2025-4-10 21:29):
写注册项(#本地机器, "SYSTEM\CurrentControlSet\Control\Print\Printers\" + 打印机名称 + "\PrinterDriverData", "ColorMode", 预期值)  怎么修正？

补充内容 (2025-4-10 21:31):
信息框("设置未生效，可能需要重启打印服务", 48, "警告", )这里如何用易语言重启服务？