The code below is suppose to print a worksheet, but my problem is that it
prints to a specific network printer and that printer is not always assigned
to Ne09. The number is not always assigned to that printer. I have seen it be
anything from Ne01 to Ne10. Any way this code can be forced to look for the
proper Ne##?

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