A couple of ways...
Dim P As Printer
Debug.Print Printer.DeviceName
For Each P In Printers
Debug.Print P.DeviceName
If P.DeviceName = "The Name of the printer" Then
Set Printer = P
Exit For
End If
Next P
Debug.Print Printer.DeviceName
or by using the common dialog control
Debug.Print Printer.DeviceName
CD.ShowPrinter
Debug.Print Printer.DeviceName
Good Luck
Reputation Points: 156
Solved Threads: 296
Posting Virtuoso
Offline 1,670 posts
since Mar 2009