Designating a particular printer

[DeliRick]

I have a VB project that has to print to different printers depending on circumstances. Presently I distinguish between the different printers on my network by using "Set Printer = Printers(0)" (or 1,2,3,etc).

The problem with this is, you need to install the printers in an exact order, and if you change one it screws it all up. Is there a way to designate the printers by their network names? (or some other way?)

 

[JustinEzequiel]

there must be a better way but you could try this

Dim oPrinter As Printer
Dim sName As String

sName = "HP LaserJet 5P/5MP PostScript"

For Each oPrinter In Printers
  If oPrinter.DeviceName = sName Then Exit For
Next oPrinter

If oPrinter Is Nothing Then
  MsgBox "Desired printer not found"
Else
  MsgBox oPrinter.DeviceName
End If