Network Printing

Sorry about the cross post. Just discovered this group.

The code below is suppose to print a work***, but my problem is that it is suppose to print to a specific network printer and that printer is not always assigned
to Ne09. I have seen it be anything from Ne01 to Ne10.

Any way this code can be forced to look for the proper Ne##?. Unfortunately, depending on the computer from which this is run, it is not normally the default printer.

This is just a snippet of the code. The macro is much more involved

Sub Macro7()
'
' Macro7 Macro
' Macro recorded 8/28/2008 by wta
'

'
Application.ActivePrinter = "\\printserver1\ParaT_HPLJ_3800 on Ne09:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\printserver1\ParaT_HPLJ_3800 on Ne09:", Collate:=True

End Sub

.