Help with finding printer Ne port number

[Paul at GTS]

Please can some one help me here.

Some where I have seen a small piece of code that lists the printer name and the respective Ne port number on PC that runs the code but I can't find it today.

Any ideas ?

Thanks

 

[Kyle123]

how about:

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

 

[Fluff]

Alternatively if you want the name & port of the active printer try

Sub chk()
MsgBox ActivePrinter
End Sub