Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 379|回复: 3

[已解决] 自动化automation错误

[复制链接]
发表于 2019-12-4 15:55 | 显示全部楼层 |阅读模式
请各位老师看看  这是是因为电脑的原因还是代码的原因
微信截图_20191204154423.png

新建 Microsoft Excel 工作表 (2).rar

13.66 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-12-4 18:27 | 显示全部楼层
嗯试了下,代码没有错误,是不是打印机名字录错了,注意是名称不是类型什么的。
下面这个代码可以获取当前打印机名称
MsgBox Application.ActivePrinter

评分

参与人数 1学分 +2 收起 理由
zhangv712 + 2 学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-5 10:09 | 显示全部楼层
0126 发表于 2019-12-4 18:27
嗯试了下,代码没有错误,是不是打印机名字录错了,注意是名称不是类型什么的。
下面这个代码可以获取当前 ...

感谢老师{:9_315:}
回复

使用道具 举报

发表于 2019-12-5 16:46 | 显示全部楼层
可以循环提取打印机名称
  1. Sub 在代码中直接写入打印机名()
  2.     Dim net
  3.     Dim nPrt As Integer, i As Integer
  4.     Set net = CreateObject("WScript.Network")
  5.     nPrt = net.EnumPrinterConnections.Count
  6.     For i = 0 To nPrt - 1 Step 2
  7.         Debug.Print Int(i / 2 + 1); "打印机名称:"
  8.         Debug.Print net.EnumPrinterConnections.Item(i + 1); Chr(10)
  9.     Next i
  10. '    net.SetDefaultPrinter "DASCOM AR-580II"'填入正确的打印机名称
  11. '    ActiveSheet.PrintPreview  '打印预览
  12. '    net.SetDefaultPrinter "Kyocera TASKalfa 1800 GX"
  13. End Sub
复制代码

评分

参与人数 1学分 +2 收起 理由
zhangv712 + 2 学习

查看全部评分

回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-8-14 03:28 , Processed in 0.062400 second(s), 12 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表