VBA Printing

  • Thread starter Thread starter Craig
  • Start date Start date
C

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
 
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
 
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
 
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
 
Back
Top