硬件 | ExcelOffice

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

2018年7月20日作者：exceloffice

暂无评论

利用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

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日作者：exceloffice

暂无评论

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

但是用

Excel.Application.ActivePrinter

1	Excel.Application.ActivePrinter

获取的默认打印机的结[……]

阅读全文

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

2018年7月19日作者：exceloffice

暂无评论

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

代码如下：

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
                Debug.Print "端口：" & oPrinter(i) & vbTab & "打印机名称：" & oPrinter(i + 1)
            Next i
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

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

Debug.Print "端口：" & oPrinter(i) & vbTab & "打印机名称：" & oPrinter(i + 1)

Next i

End With

End Sub

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

2018年7月19日作者：exceloffice

暂无评论

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

代码如下：

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

1

2

3

Sub QQ1722187970()

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

End Sub

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

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

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

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

近期文章

功能

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

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

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

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

近期文章

关键字

功能