Issue with network printing and macros

We have a system where the users can all print to the big network printers and it will store it in the user mailbox's for printing later. the printers are shared off the server (server 2008 r2).

We have macros set up so that specific functions are used (i.e. print from certain trays, duplexed etc) These macros are the same for everyone in this office, and they work well except for one user who is getting a debug error on the macro on the line

 ActivePrinter = "\\MAINSERVER\Network Printer 1"

We have tried:
switching her machine for another one - same issue
different network port / cables - same issue
new profile - same issue
different user logged on - same issue

the odd thing is, moving the old machine to a different room, the macro works fine!
LVL 4
Neal58Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

dlmilleCommented:
Outside of Excel, can you change printers using the control panel/printers option?  can you change to the active printer manually?  In either room?


Put this in a public module in Excel and run the macro.  Is that printer you want to print to listed?

'Source from rorya on E-E:
Sub PrintersAndPorts()

'This works with Windows 2000 and up

   Dim Arr               As Variant
   Dim Device            As Variant
   Dim Devices           As Variant
   Dim msg               As String
   Dim RegObj            As Object
   Dim RegValue          As String
   Const HKEY_CURRENT_USER = &H80000001

   Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   RegObj.enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Devices, Arr

   For Each Device In Devices
      RegObj.getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Device, RegValue
      msg = msg & Device & " on " & Split(RegValue, ",")(1) & vbCrLf
   Next

   MsgBox msg, vbInformation, "Printers and Ports"

End Sub

Open in new window


Dave
Neal58Author Commented:
sorry for the lapse in this. Only now able to do this. will update with the results tomorrow afternoon.
dlmilleCommented:
@Neal58 - any success?

Dave
Neal58Author Commented:
late answer but we can only ascertain that the second PC has some fault in it. Even doing a reformat and reinstall of everything the issue still happens.

using other PC's in the locality with this network port brought no issues; and unlike the original PC, moving this one to a different location still has the same problem!

Sadly the practice manager on site likes to try everything himself and not tell me the results of any tests I ask for, so I am leaving this with him to muddle with.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Neal58Author Commented:
points for the help.

half sorted but uncooperative department manager means that I am not going to pursue this in any haste
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.