Interface w/Receipt Printer & Cash Drawer

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Does anyone have any experience with a particular make/model of receipt
printer and cash drawer interfaced with an ACCESS POS system?

We have a Point of Sale program running under Access 2000 (have started
upgrading to Access 2003). I need to buy an impact or thermal receipt printer
and cash drawer, and interface these with the program.

Just wondered if any particular make/model was easier to work with?
Thanks
 
I haven't tested this or done anything like it in years. The api's appear to
be16 bit, so you may have to change the syntax to 32 bit ones.:

Declare Function OpenComm Lib "User" (ByVal lpComName As String, ByVal
wInQueue As Integer, ByVal wOutQueue As Integer) As Integer
Declare Function CloseComm Lib "User" (ByVal nCid As Integer) As Integer
Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf As
String, ByVal nSize As Integer) As Integer

'Put the following code into the On Click event of a button:

Function WriteToCom1()
Dim x As Integer, n As Integer
x = OpenComm("COM1", 10, 10)
n = WriteComm(x, "U", 5)
n = CloseComm(x)
End Function

If you want to do it from the Printer port use the following:

Open "LPT1" For Binary As #1
Put #1, , Chr(28)
Close
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
Back
Top