求助，怎样在VBA中设定打印机

答案:1 悬赏:30 手机版

解决时间 2021-12-23 06:44

提问者网友：回忆在搜索
2021-12-22 22:03

求助，怎样在VBA中设定打印机

最佳答案

五星知识达人网友：北方的南先生
2021-12-22 23:42

On Error Resume Next
Application.AutoFormatAsYouTypeReplaceHyperlinks = False    '禁止邮箱地址自动变成超链接
ThisWorkbook.VBProject.References.AddFromFile (Application.Path & "\MSOUTL.OLB")    '引用outlook对象
ActiveWorkbook.PrintOut Copies:=0, ActivePrinter:="Microsoft XPS Document Writer", printtofile:=True, Collate:=True, prtofilename:="C:\ABC.XPS"     '设置默认打印机为XPS上面最后一行就是设定打印机，ActivePrinter设置成你自己需要的打印机即可，这行命令运行会出错，因为Copies:=0表示打印份数为0，但出错前会设置好打印机，所以我用On Error Resume Next屏蔽了错误。
Application.ActivePrinter就能得到当前活动打印机名称。
我也都是在excelhome论坛上搜索的，你自己去看，找到最简单最适合你的方法即可。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息