ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 6403|回复: 10

[求助] 如何用VBA得知打印机是联机还是脱机状态?不能打印跳出也行

[复制链接]

TA的精华主题

TA的得分主题

发表于 2010-4-1 19:02 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:WMI应用
请大家帮忙下。。不能打印跳出也行
Sub PrintOutAllVisualSheet()
'print out all visual sheet by seting format.
Dim c As Worksheet
  For Each c In ActiveWorkbook.Sheets
   If c.Visible = xlSheetVisible Then
     c.Select
     Application.ActivePrinter = "EPSON DLQ-1000K 在 LPT1:"
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   End If
  Next c
End Sub

[ 本帖最后由 xiaoer88 于 2010-4-1 19:15 编辑 ]

点评

知识树索引内容:3、6楼  发表于 2013-9-22 23:02

TA的精华主题

TA的得分主题

发表于 2010-4-1 19:31 | 显示全部楼层
这个好像要API吧,建议楼主google搜索.

TA的精华主题

TA的得分主题

发表于 2010-4-1 19:45 | 显示全部楼层
这个代码枚举可用的打印机。(没有试过是不是有效,你先试试看)
Set WshNetwork = CreateObject("WScript.Network")
    Set oPrinters = WshNetwork.EnumPrinterConnections
    For i = 0 To oPrinters.Count - 1 Step 2
        Debug.Print "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
    Next

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-4-1 20:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
好的, 谢谢  明天我去试试

TA的精华主题

TA的得分主题

发表于 2010-4-1 20:14 | 显示全部楼层
有WMI对象,可以枚举打印机状态。
不过WMI不属于EXCEL默认对象,另外系统必须开了WMI服务(老一点的系统,2000以前不一定有WMI)

TA的精华主题

TA的得分主题

发表于 2010-4-1 20:28 | 显示全部楼层
下面这个,自已看
事实上,喜欢用的话,自已取objx.PrinterStatus,把这个例程改成FUNCTION,返回objx.PrinterStatus就可以(一般是要3这个状态),这里只是单独一个例程显示信息说明怎么用这种WMI对象。


Sub WMI枚举打印机状态()
Dim strMsg As String
'取得WMI服务
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
'查找系统所有打印服务(这是集合)
Set colPrinters = objWMI.ExecQuery("Select * from Win32_Printer")
   
strMsg = ""
'遍历
For Each objx In colPrinters
    strMsg = strMsg & "打印机名: " & objx.Name & vbCrLf
    strMsg = strMsg & "本地打印机: " & objx.Location & vbCrLf
    Select Case objx.PrinterStatus
        Case 1
            strList = "其它状态"
        Case 2
            strList = "不明"
        Case 3
            strList = "等待"
        Case 4
            strList = "打印中..."
        Case 5
            strList = "开机"
    End Select
    strMsg = strMsg & "打印机状态: " & strList & vbCrLf
Next

MsgBox strMsg
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-4-1 22:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
真心感谢“hiyou” 学习了,可以使用。  !!!  同时 也感谢“Winland”版主跟其他家人的热情帮助。

TA的精华主题

TA的得分主题

发表于 2010-4-3 14:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-12-28 17:50 | 显示全部楼层
winland 发表于 2010-4-1 19:45
这个代码枚举可用的打印机。(没有试过是不是有效,你先试试看)
Set WshNetwork = CreateObject("WScript ...

请教您是如何找到这么好的代码的呢?

TA的精华主题

TA的得分主题

发表于 2015-10-13 08:31 | 显示全部楼层
hiyou 发表于 2010-4-1 20:28
下面这个,自已看
事实上,喜欢用的话,自已取objx.PrinterStatus,把这个例程改成FUNCTION,返回objx.Pri ...

hiyouEH友,跟你求句代码,让当前打印机从脱机状态转入 联机使用打印机状态。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 22:06 , Processed in 0.053375 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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