• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 358
  • Last Modified:

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!
0
Neal58
Asked:
Neal58
  • 3
  • 2
2 Solutions
 
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
0
 
Neal58Author Commented:
sorry for the lapse in this. Only now able to do this. will update with the results tomorrow afternoon.
0
 
dlmilleCommented:
@Neal58 - any success?

Dave
0
 
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.
0
 
Neal58Author Commented:
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

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now