硬件 | ExcelOffice【微信公众号：水星Excel】

Sub QQ1722187970()
    Dim WshNetwork As Object
    Dim oPrinter As Object
    Set WshNetwork = CreateObject("WScript.Network")
    With WshNetwork
        Set oPrinter = .EnumPrinterConnections
            For i = 0 To oPrinter.Count - 1 Step 2
                 sPath = oPrinter(i + 1)
                '判断是不是远程打印机
                 If sPath Like "*\\*" Then
                    '是的话强制断开连接
                    .RemovePrinterConnection sPath, True, True
                 End If
            Next i
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Sub QQ1722187970()

Dim WshNetwork As Object

Dim oPrinter As Object

Set WshNetwork = CreateObject("WScript.Network")

With WshNetwork

Set oPrinter = .EnumPrinterConnections

For i = 0 To oPrinter.Count - 1 Step 2

sPath = oPrinter(i + 1)

'判断是不是远程打印机

If sPath Like "*\\*" Then

'是的话强制断开连接

.RemovePrinterConnection sPath, True, True

End If

Next i

End With

End Sub

[……]

阅读全文>>>

如何用vba设置电脑上的默认打印机？

2018年7月19日作者：水星Excel

1,644 次浏览暂无评论

在如何用vba列出电脑上所有的打印机名称和端口？和在如何用vba获取电脑上连接的默认打印机名称？
两篇文章中我们分别介绍了如何获取电脑上当前的默认打印名称和列举当前电脑上的所有打印机。

但是用[……]

阅读全文>>>

如何用vba列出电脑上所有的打印机名称和端口？

2018年7月19日作者：水星Excel

1,356 次浏览暂无评论

在vba中可以用脚本对象WshNetwork的EnumPrinterConnections方法枚举所有本地电脑上已经安装的打印机的名称和端口。

代码如下：
[crayon-5f08fb6216e369[……]

阅读全文>>>

如何用vba获取电脑上连接的默认打印机名称？

2018年7月19日作者：水星Excel

848 次浏览暂无评论

用vba获取本地电脑上连接的默认打印机的名称可以使用Application对象的ActivePrinter属性。

代码如下：

Sub QQ1722187970()
   MsgBox "当前默认的打印机名称为" & Excel.Application.ActivePrinter
End Sub

1

2

3

Sub QQ1722187970()

MsgBox "当前默认的打印机名称为" & Excel.Application.ActivePrinter

End Sub

[……]

阅读全文>>>

如何在vba中使用wmi？

如何用vba模拟键盘按键？

如何用vba删除电脑上添加的远程网络打印机？

如何用vba设置电脑上的默认打印机？

如何用vba列出电脑上所有的打印机名称和端口？

如何用vba获取电脑上连接的默认打印机名称？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号