Sub BukaCashDrawer()
On Error GoTo Pesan
Dim Instring As String
MSComm2.CommPort = 1
MSComm2.Settings = "9600,N,8,1"
MSComm2.InputLen = 0
MSComm2.PortOpen = True
' MSComm2.Output = Chr(27) & Chr(112) & Chr(0)
MSComm2.Output = Chr$(&H1B) + "p" + Chr$(0) + Chr$(100) + Chr$(250)
MSComm2.PortOpen = False
Exit Sub
Pesan:
MsgBox ("Cash Drawer anda belum siap")
End Sub
----- Original Message -----
From: 46UN6
To: [email protected]
Sent: Tuesday, March 06, 2007 12:47 PM
Subject: [Programmer-VB] membuka cashdraw
rekan2 yth,
mohon bantuannya , gimana sintaks di VB untuk membuka laci/cashdrwa ya . tks
sebelumnya.
salam,
nyom2
