VBA更改当前使用的打印机

硅谷少年 · 发表于 2016-11-14 18:45

senhuan 发表于 2012-11-23 22:24
也可以使用PrintOut方法来直接调用其他非系统默认打印机来打印，这样可以不用读取注册表来提取打印机对应端 ...

感谢分享，这个好用。thisworkbook.printout activeprinter:="Brother HL-5340D series"
可以设置thisworkbook里open事件是这个方法，统一成一个虚拟打印机，如office自带的xps虚拟打印机，能确保其它人浏览时排版效果不发生变化。

jsgj2023 · 发表于 2016-11-14 19:40

占位学习一下。

硅谷少年 · 发表于 2016-11-14 21:39

senhuan 发表于 2012-11-23 22:24
也可以使用PrintOut方法来直接调用其他非系统默认打印机来打印，这样可以不用读取注册表来提取打印机对应端 ...

这一句会弹出错误提示，换成
On Error Resume Next
ActiveWorkbook.PrintOut Copies:=0, ActivePrinter:="Microsoft XPS Document Writer", printtofile:=True, Collate:=True, prtofilename:="C:\ABC.XPS"
就好了，Copies:=0会报错，但On Error Resume Next能屏蔽错误。反正换打印机的目的搞定了。

cxmgxl · 发表于 2017-5-8 10:28

好东西，谢谢分享

bucengchulian · 发表于 2018-10-2 00:24

senhuan 发表于 2012-11-23 22:24
也可以使用PrintOut方法来直接调用其他非系统默认打印机来打印，这样可以不用读取注册表来提取打印机对应端 ...

谢谢你，解决问题了

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

[分享] VBA更改当前使用的打印机

评分