Code:
'http://www.vbaexpress.com/forum/showthread.php?64826-WSH-to-List-All-Printers
Sub M_snb_printers()
MsgBox ActivePrinter
With CreateObject("Wscript.network")
For j = 0 To .EnumPrinterConnections.Count - 1 Step 2
c00 = c00 & vbLf & .EnumPrinterConnections(j + 1) & " on " & .EnumPrinterConnections(j)
Next
End With
MsgBox c00
End Sub