使用vbs将默认打印机修改为双面打印

月下美孤 · 发表于 2024-2-2 20:43:08

使用vbs操作默认打印首选项，并修改为双面打印纯脑洞，可能因打印机型号参数不一而导致无法实现。
相关VBS代码给大家参考

Set objWMIService = GetObject ("winmgmts:\\.\root\cimv2")
Set colPrinters = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer WHERE Default = True")
Set objShell = CreateObject ("WScript.Shell")
For Each objPrinter in colPrinters
printerName = objPrinter.Name
Exit For
Next
If printerName <> "" Then
Set objShell = CreateObject ("WScript.Shell")
objShell.Run "rundll32 printui.dll,PrintUIEntry /e /n """ & printerName & """"
WScript.Sleep 2000
' 双面打印的组合框选中项为0=无
' objShell.SendKeys "{TAB}"
' objShell.SendKeys "{DOWN}{DOWN}"
' objShell.SendKeys "{ENTER}{ENTER}"
' 双面打印的组合框选中项为1=双面打印长边翻页
objShell.SendKeys "{TAB}"
objShell.SendKeys "{DOWN}{UP}"
objShell.SendKeys "{ENTER}{ENTER}"
Else
WScript.Echo "找不到默认打印机。"
End If

qq977352880 · 发表于 2024-4-16 06:41:21

看完这个教程，收获很多。

qq977352880 · 发表于 2024-4-15 04:54:38

很全面，覆盖了很多细节，好评！

qq977352880 · 发表于 2024-4-9 22:51:22

这个教程真的很棒，已经推荐给身边的朋友。

月下美孤 · 发表于 2024-3-7 19:06:09

月下美孤发表于 2024-2-2 20:45
可以转到易代码，通过外部组合框_置现行选中项()来保证选项正确，但是如题，建议不要浪费时间，有双面打印 ...

打印机驱动不一样，设置双面的位置|方式不一样，所以没意义

月下美孤 · 发表于 2024-3-7 19:05:40

qq1056123185 发表于 2024-2-16 13:23
代码看不懂，也不知道该怎么用~

复制到文本，保存为aucii 后缀名vbs就可以了，windows

休止o · 发表于 2024-3-7 17:53:23

66666666666666

qq1056123185 · 发表于 2024-2-16 13:23:56

代码看不懂，也不知道该怎么用~

月下美孤 · 发表于 2024-2-2 20:45:53

可以转到易代码，通过外部组合框_置现行选中项()来保证选项正确，但是如题，建议不要浪费时间，有双面打印需求的可以修改一下vbs，只要自己能用就可以

		自动登录	找回密码
密码			注册

[技术专题] 使用vbs将默认打印机修改为双面打印