Arşiv Bilgisayarda bulunan Yazıcıları listeleme

Sub get_printers()
Dim WshNetwork As Object
Dim oPrinters As Object
Dim i As Integer

On Error Resume Next

Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections

 
  For i = 0 To oPrinters.Count - 1 Step 1
    Cells(i + 1, 1) = "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
    If Application.ActivePrinter = oPrinters.Item(i) Then
      Debug.Print oPrinters.Item(i)
    End If
  Next
end sub