"Each client's printer address is different when printing to the server"

I am not sure what you mean by this statement. The Ne01, Ne02, etc. are
intranet ports and I don't know that they would need 99 ports to handle the
print demands. But I am not a techie, so what do I know. I just don't
recall ever seeing more that two ports for network printers on a single
workstation.



"rbemmer" wrote in message
...
i = var
Each client's printer address is different when printing to the server.
The
"Ne0i" looks for that var. The prtTest() displays the address to the
default
printer on that local machine. What I'm looking for is a way to change the
default printer to a network printer, print my spreadsheet, then change
back
to the local default printer.

"JLGWhiz" wrote:

"\\SRVR01\Estimates on Ne0" & 1 & "."

Should this not be "\\SRVR01\Estimates on Ne0" & i & ":"

i instead of 1 and colon instead of period?



"rbemmer" wrote in message
...
Here's the code I'm using. Even with \\Server\Printer in the code the
macro
still prints to my local default printer instead of the network
printer.

For i = 1 To 99
Err.Clear
On Error Resume Next
Application.ActivePrinter = "\\SRVR01\Estimates on Ne0" & 1 & "."
If Err.Number = 0 Then Exit For

"JLGWhiz" wrote:

ActivePrinter = \\Servername\PrinterName


"rbemmer" wrote in message
...
Is there a way to write a macro that will change the default printer
on
my
local machine to a network printer ie... \\server\printer?