Public Sub open_cashdrawer()
Dim intFileNo As Integer = FreeFile()
FileOpen(1, "c:\escapes.txt", OpenMode.Output)
PrintLine(1, Chr(27) & "p" & Chr(0) & Chr(25) & Chr(250))
FileClose(1)
Shell("print /d:lpt1 c:\escapes.txt", vbNormalFocus)
End Sub
Date :
2013-01-01 07:56:57
By :
mr.win
No. 2
Guest
สามารถเลือก port ได้ไหมครับ เช่น port lan,usb,com1 โค้ดจะเป็นอย่างไรครับ