Solved

Issue with network printing and macros

Posted on 2012-03-30
5
349 Views
Last Modified: 2012-06-21
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!
0
Comment
Question by:Neal58
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 42

Assisted Solution

by:dlmille
dlmille earned 250 total points
ID: 37789825
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
0
 
LVL 4

Author Comment

by:Neal58
ID: 37832207
sorry for the lapse in this. Only now able to do this. will update with the results tomorrow afternoon.
0
 
LVL 42

Expert Comment

by:dlmille
ID: 37900878
@Neal58 - any success?

Dave
0
 
LVL 4

Accepted Solution

by:
Neal58 earned 0 total points
ID: 37909832
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.
0
 
LVL 4

Author Closing Comment

by:Neal58
ID: 37932183
points for the help.

half sorted but uncooperative department manager means that I am not going to pursue this in any haste
0

Featured Post

How our DevOps Teams Maximize Uptime

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us. Read the use case whitepaper.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Join Greg Farro and Ethan Banks from Packet Pushers (http://packetpushers.net/podcast/podcasts/pq-show-93-smart-network-monitoring-paessler-sponsored/) and Greg Ross from Paessler (https://www.paessler.com/prtg) for a discussion about smart network …
If you're not part of the solution, you're part of the problem.   Tips on how to secure IoT devices, even the dumbest ones, so they can't be used as part of a DDoS botnet.  Use PRTG Network Monitor as one of the building blocks, to detect unusual…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question