Looping through Ne:xx options to find correct port

[learningthings]

Hi everyone, this is the code I have so far:

Application.ScreenUpdating = False
Application.ActivePrinter = "RecieptPrinter on Ne00:"
Dim strCurrentPrinter As String
strCurrentPrinter = Application.ActivePrinter
   With Sheets("Invoice")
      .Visible = True
      .PrintOut Copies:=1, Collate:=True
      .Visible = False
   End With
Application.ScreenUpdating = True

The problem is that occasionally the port for the printer changes. I need to specify the ports because I have two printers connected to the same computer.
Is there a way to code the system to loop through Ne00 - Ne99 until it finds a match?
Any other methods or suggestions are appreciated!!

 

[johnnyL]

How about something like this:

Sub AutoSetPrinterPortFromPrinterName()
'
    Dim PrinterName         As String
    Dim strCurrentPrinter   As String
    Dim strsetting          As String
    Dim PrinterPort         As Variant
'
    Application.ScreenUpdating = False
'
    PrinterName = "RecieptPrinter"                                          ' <--- Set this to the name of your printer that you want to use
'
    strsetting = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\" & PrinterName)
    PrinterPort = Split(strsetting, ",")
'
    Application.ActivePrinter = PrinterName & " on " & PrinterPort(1)
'
    strCurrentPrinter = Application.ActivePrinter
'
    With Sheets("Invoice")
        .Visible = True
        .PrintOut Copies:=1, Collate:=True
        .Visible = False
    End With
'
    Application.ScreenUpdating = True
End Sub

 

[johnnyL]

@learningthings Does the code I submitted not satisfy your desire to automatically set the proper port for the printer name that you selected?

 

[learningthings]

@learningthings Does the code I submitted not satisfy your desire to automatically set the proper port for the printer name that you selected?

Hi Johnny, I couldn't get that to work but I figured out some other code that did it for me. Thank you for your help

 

[johnnyL]

Please explain the couldn't get to work. Did the code result in a run time error?