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

maybe someone has an idea, but how about this?

application.Dialogs(xlDialogPrint).Show

--


Gary


"ordnance1" wrote in message
...
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

I do not want the print dialogbox to show. This was just a snippet of code.
The actual macro is more involved. I just need a way to get it to go to the
right printer.


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
maybe someone has an idea, but how about this?

application.Dialogs(xlDialogPrint).Show

--


Gary


"ordnance1" wrote in message
...
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