Interface w/Receipt Printer & Cash Drawer

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
 
A

Arvin Meyer [MVP]

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top