• Home
 · 
• Miscellaneous
 · 
• Open Cash Drawer For (POINT OF SALE SOFTWARE) Linked On LPT,Com Port

Open Cash Drawer For (POINT OF SALE SOFTWARE) Linked On LPT,Com Port

Open Cash Drawer For (POINT OF SALE SOFTWARE) Linked On LPT,Com Port

API Declarations


Sub FunOpenCashDrawerLPT1()
Dim iFile As Integer
Dim arrbData() As Byte
iFile = FreeFile
'For Com Port Open "COM1"
Open "LPT1" For Binary Access Write As #iFile
ReDim arrbData(1 To 4)
arrbData(1) = &H1B '27 in hexadecimal
arrbData(2) = &H70 '112 in hexadecimal
arrbData(3) = &H0 '0 in hexadecimal
arrbData(4) = &H30 '48 in hexadecimal
Put #iFile, , arrbData
arrbData(3) = &H1
arrbData(4) = &H31
Put #iFile, , arrbData
Close #iFile
End Sub



Rate Open Cash Drawer For (POINT OF SALE SOFTWARE) Linked On LPT,Com Port

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Enter Code In Click Event

Call FunOpenCashDrawerLPT1