• Home
 · 
• VB function enhancement
 · 
• Open Cash Drawer

Open Cash Drawer

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.

Rate Open Cash Drawer

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

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