Solve your biggest tech problems alongside global tech experts with 1:1 help.
Hello all! I wanted to share this quick tutorial to help anyone out who might be struggling with this same procedure.
I will list what my setup is below and you can adapt it from there. Note that I am in no way an expert and quite frankly, am relatively new at this. With that said...
When I plugged in my Adapter I made sure to have it connected to the register.
The driver should come up as a "Prolific USB-to-Serial Comm Port (Your Com Port Here)" ***Remember which COM Port it says.
The following code is what I used to pop the drawer right open:
Private Sub OpenCashDrawer() On Error GoTo Errorhandler Dim LocationPort As String LocationPort = "Com4" 'Replace Com4 with the com port you are using. Example is Com3, Com2, etc..... Open LocationPort & ":9600,n,8,1" For Output As #1 Print #1, "" 'This is just sending a signal like it is printing something but it is not. Close #1 Exit Sub Errorhandler: MsgBox "Error " & Err.Number & ": " & Err.Description & " in " & _ VBE.ActiveCodePane.CodeModule, vbCritical, "Error in btnOpenCashDrawer_Click" End Sub
This worked for me, so I hope this helps someone out.
|Interfaces in VBA - How to use them and how to work around them||797|
|QODBC: Updating QuickBooks doesn’t update Microsoft® Access||232|
|Zip and unzip files and folders with VBA the Windows Explorer way||865|
|Bug identified in Access 2007 Listbox .ListIndex and .Column() properties||191|