Open Cash Drawer
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
This piece of code will pop open an MMF ED 2000 Cash Register. It sends the ascii value of A down com port 1. I put this code on planetsource code cause I had a hard time finding out how to do this. I tried the MSComm object and had a lot of difficulty with it. Hope this helps all the coders out there.
Original Author: Markus O Beamer
Code
Sub popDrawer()
On Error GoTo err
If hasCashDrawer Then
Open "COM1" For Output Access Write As #1
Print #1, Chr$(65); "A";
Close #1
End If
Exit Sub
err:
MsgBox ("Problems opening drawer")
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.