网络打印机 | ExcelOffice【微信公众号：水星Excel】

利用WshNetwork对象的RemovePrinterConnection方法可以将本地电脑上连接的远程打印机移除。

代码如下：

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

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删除电脑上添加的远程网络打印机？

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

热门文章

最近文章

微信公众号