Buka Laci Kasir di Vb 6.0

Sub BukaDrawer()
  On Error Resume Next
  Open "LPT1" For Output As #1 ' Kalo Pake Port Com1 bisa diganti
  Print #1, Chr$(27); Chr$(112); Chr$(0)
  Close #1
End Sub


juga bisa pake yg ini

MSComm1.CommPort = 1
MSComm1.Settings = "300,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "aaaaa"

MSComm1.PortOpen = False