VBA Printing

[Craig]

Hello, I'm trying to get and set the printer that is currently connected to
my laptop. I travel around and hook up to over 100 printers which are all
the same USB printer. Each time I encounter a new printer I install the
drivers for it. I then get a new printer icon, which it access's another
USB port. I then rename the printer and record the port it uses. I know how
to check if a printer exist and I know how to change the active printer
within my code. My problem is each time I add a printer the ports change
(Ne00: Ne01: Ne02 etc... This is fine. I can get from my records in my
code to get the printer based on the name given and port used. What I have
noticed is that after I connect to a printer that has been previously
installed for some reason the original port assigned has changed. So what I
would like to do is use a For/Next loop to check until the printer and port
exist or tell me that a printer hasn't been installed yet.
I think I can create this code myself except I'm not sure how to get the
for/next loop to check
Ne00: Ne01: Ne02: Ne03: Ne04: Ne05: Ne06: Ne07: Ne08: Ne09: Ne10:
Ne11: Ne12: .......
I can make it do x = 0 to 100 but I need a zero infront of the first 10
numbers.

Thanks in Advance once Again!
Craig

 

[Jim Cone]

Craig,

I would be inclined to use the Like operator or InStr.
However, I don't know how or where your data is set up.
The following may answer your question...
'-------------------------
Sub PrinterNumberTest()
Dim x As Long
Dim y As String
For x = 1 To 100
y = Format$(x, "00")
Next
End Sub
'----------------------

Jim Cone
San Francisco, USA


Hello, I'm trying to get and set the printer that is currently connected to
my laptop. I travel around and hook up to over 100 printers which are all
the same USB printer. Each time I encounter a new printer I install the
drivers for it. I then get a new printer icon, which it access's another
USB port. I then rename the printer and record the port it uses. I know how
to check if a printer exist and I know how to change the active printer
within my code. My problem is each time I add a printer the ports change
(Ne00: Ne01: Ne02 etc... This is fine. I can get from my records in my
code to get the printer based on the name given and port used. What I have
noticed is that after I connect to a printer that has been previously
installed for some reason the original port assigned has changed. So what I
would like to do is use a For/Next loop to check until the printer and port
exist or tell me that a printer hasn't been installed yet.
I think I can create this code myself except I'm not sure how to get the
for/next loop to check
Ne00: Ne01: Ne02: Ne03: Ne04: Ne05: Ne06: Ne07: Ne08: Ne09: Ne10:
Ne11: Ne12: .......
I can make it do x = 0 to 100 but I need a zero infront of the first 10
numbers.
Thanks in Advance once Again!
Craig

 

[Craig]

Thanks Jim,
This seem to work fine... do you think the Like operator or InStr would be
better?
I save certain information about each location in a worksheet which is
accessed by store number automatically.
IE store data, printer name, port used... but I will be removing the port
used since it changes anyway, this is where I will use the for/next loop
instead.
So Store 14811 would be sheet1 Row 2... 14812 would be sheet1 Row
3.....etc......
I place data needed for each store in the columns within their Rows... so I
have about 50 columns in use for each row.
Craig

 

[Jim Cone]

Craig,

I don't know, however...
Reliability and speed is what I look for.
If the code does what you want, all the time, and doesn't have
a noticeable delay, I wouldn't worry about it.

Regards,
Jim Cone
San Francisco, USA


Thanks Jim,
This seem to work fine... do you think the Like operator or InStr would be
better?
I save certain information about each location in a worksheet which is
accessed by store number automatically.
IE store data, printer name, port used... but I will be removing the port
used since it changes anyway, this is where I will use the for/next loop
instead.
So Store 14811 would be sheet1 Row 2... 14812 would be sheet1 Row
3.....etc......
I place data needed for each store in the columns within their Rows... so I
have about 50 columns in use for each row.
Craig