[VBA] GetPrinterPort no longer working in W10 / Excel 2016?

[NessPJ]

Hello all,

After an upgrade to Office 2016 and Windows 10 on several computers i noticed that the code i use to determine the printerport in my VBA routine no longer works.
Does anyone know how to fix this?

Public Function GetPrinterPort(strPrinterName As String) As String
   Dim objReg As Object, strRegVal As String, strValue As String
   Const HKEY_CURRENT_USER = &H80000001
   Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   strRegVal = "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts"
   objReg.getstringvalue HKEY_CURRENT_USER, strRegVal, strPrinterName, strValue
   GetPrinterPort = Split(strValue, ",")(1)
End Function

I tried changing the regkey location to "Software\Microsoft\Windows NT\CurrentVersion\Devices" because i read about that somewhere, but i'm guessing that just holds the device lists rather than the printer ports.

 

[Kyle123]

The code definitely works on that set up. Could it be that the the names of the printers have changed? Have you checked what’s actually under that key using regedit?

 

[NessPJ]

The code definitely works on that set up. Could it be that the the names of the printers have changed? Have you checked what’s actually under that key using regedit?

Hi, you're right! Just did some more troubleshooting with the user. They added the wrong printer (PRT011 on Server Y instead of Server X).
Confirmed that this still works on W10 + Office 2016. Problem solved!