print macro to increase port number

[mrnacar]

The following macro works fine except the port number is limited only to 9. So if I have 10 or more print devices, then the macro won't work if the device we're looking for is on port 10 or above. Is there a way to write it so that it will work up to maybe 15 devices?

Sub printform()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
For i = 0 To 9
Err.Clear
On Error Resume Next
Application.ActivePrinter = "LGLDOUBLE on Ne0" & i & ":"
If Err.Number = 0 Then GoTo printnow
On Error GoTo 0
Next
On Error GoTo 0
Exit Sub
printnow:
    Dim iCopies As String
    
    iCopies = Application.InputBox("How many copies do you want to print?", Type:=2)
    
    If iCopies <> vbNullString Then
    
        WS.PrintOut Copies:=iCopies
    Else
        Exit Sub
    End If
ActivePrinter = sCurrentPrinter
End Sub

 

[SMB Cooper]

AFAIK, your code could be changed from...

For i = 0 To 9

to...

For i = 0 To 12

or more if you have more print devices

 

[mrnacar]

I don't think that will work because it will return as port 012 instead of 12.

AFAIK, your code could be changed from...

For i = 0 To 9

to...

For i = 0 To 12

or more if you have more print devices

 

[mrnacar]

Bump...

Can anybody help?

 

[mrnacar]

That's okay, I figured it out myself. But if someone can shorten the code then I can learn something. Thank you.

Sub printform()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
For i = 0 To 9
Err.Clear
On Error Resume Next
Application.ActivePrinter = "LGLDOUBLE on Ne0" & i & ":"
If Err.Number = 0 Then GoTo printnow
On Error GoTo 0
Next
If i = 10 Then Call printform2
On Error GoTo 0
Exit Sub
printnow:
    Dim iCopies As String
    
    iCopies = Application.InputBox("How many copies do you want to print?", Type:=2)
    
    If iCopies <> vbNullString Then
    
        WS.PrintOut Copies:=iCopies
    Else
        Exit Sub
    End If
ActivePrinter = sCurrentPrinter
End Sub
Sub printform2()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
For i = 10 To 20
Err.Clear
On Error Resume Next
Application.ActivePrinter = "LGLDOUBLE on Ne" & i & ":"
If Err.Number = 0 Then GoTo printnow
On Error GoTo 0
Next
If i = 21 Then MsgBox "Contact 'DID' to setup your printer"
If i = 21 Then Exit Sub
On Error GoTo 0
Exit Sub
printnow:
    Dim iCopies As String
    
    iCopies = Application.InputBox("How many copies do you want to print?", Type:=2)
    
    If iCopies <> vbNullString Then
    
        WS.PrintOut Copies:=iCopies
    Else
        Exit Sub
    End If
ActivePrinter = sCurrentPrinter
End Sub