Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Issue with network printing and macros

Posted on 2012-03-30
5
Medium Priority
?
355 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 1000 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

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

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

For many of us, the  holiday season kindles the natural urge to give back to our friends, family members and communities. While it's easy for friends to notice the impact of such deeds, understanding the contributions of businesses and enterprises i…
This article is a collection of issues that people face from time to time and possible solutions to those issues. I hope you enjoy reading it.
After creating this article (http://www.experts-exchange.com/articles/23699/Setup-Mikrotik-routers-with-OSPF.html), I decided to make a video (no audio) to show you how to configure the routers and run some trace routes and pings between the 7 sites…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Suggested Courses

610 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