I am trying to set up a print macro which automatically print to a
pre-selected printer and not the one set as default on the computer.

The default printer needs to be set back to the one it was on for that user.

I have come up with the following code for doing this but when another user
tries to print it comes up with an error, I have worked out that it is the
Ne02 ref, on there computer it is Ne03.

The Ne ref seems to be the number that the computer give the network printer
in order they are installed on the computer, unfortunately if you were to
delete a printer and restart your computer these ref update and may change.

All I am after is a piece of code that will search for the Ne number for the
HP Laserjet 2100 PCL6 printer (To replace Ne02).


Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "HP LaserJet 2100 PCL6 on Ne02:"

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Application.ActivePrinter = STDprinter



Any help will be appreciated

Stephen