USB Device & Printer Pooling

I have several cash registers with cash drawers that open by writing a file to the lpt1: device.  The newest cash register/cash drawer has a USB interface.  I got it to work with lpt1: device by changing the printer properties.  Specifically, Star TSP743II -> Properties -> Ports tab -> check off both lpt1: and usb001ports and check of Enable printer pooling.  When I restart the computer these settings are no longer set.  How can I get them to stick? Printer Properties
Dim intFF as integer

intFF = FreeFile
Open "lpt1:" For Output As intFF
Print #intFF, Chr(7)
Close #intFF

Open in new window

MariaHaltAsked:
Who is Participating?
 
truromeo4julietCommented:
how about re-writing the code to print to "cash:" port, and renaming the used port on each PC to "cash:" ?
0
 
MariaHaltAuthor Commented:
truromeo4juliet:  

I like your idea and I think it would work, but  I'm under the gun and this is the solution I'm actually going to implement for now::

If strPOS = "NewCashRegister" Then
   Open "\\<mycomputername>\<mysharedprintername>" For Output As intFF
Else
   Open "lpt1:" For Output As intFF
End If
0
 
truromeo4julietCommented:
that's a simplisticly beautiful code. I like it.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.