EPSON 爱普生 TM-H5000II 难题
各位好.我正在研究这款打印机 Epson TM-H5000II. 研究了2个星期.
不过我还是找不到对此.
我要打印在Slip 易做图. 应该是叫票据
不过.我现在放纸进去后一直会被退出来.
我到底要用什么代码他才不会退出来.
不知道有人懂吗?
可以个方法吗?
我要实现的东西
http://www.易做图.com/watch?v=mgf1zMAPwCM
我遇到的问题
http://www.易做图.com/watch?v=9VDtGue1vG4
谢谢各位的帮忙
Page 1 http://postimage.org/image/i0mffniv9 Page 2 http://postimage.org/image/ev1tpg091
一下我的代码
Dim SerialPort1 As New SerialPort("COM1")
SerialPort1.BaudRate = 9600
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = 1
SerialPort1.DataBits = 8
SerialPort1.WriteBufferSize = 4096
If SerialPort1.IsOpen = False Then SerialPort1.Open()
If SerialPort1.IsOpen Then
'SerialPort1.DiscardInBuffer()
'SerialPort1.DiscardOutBuffer()
'Initialize Printer
Dim BufferInitialize() As Byte = {&H1B, &H40}
SerialPort1.Write(BufferInitialize, 0, BufferInitialize.Length)
''Enable(SLip) ESC c 1 4
Dim Buffer5() As Byte = {&H1B, &H63, &H31, &H4}
SerialPort1.Write(Buffer5, 0, Buffer5.Length)
'Disable sensor
Dim BufferTOF() As Byte = {&H1B, &H63, &H34, &H10}
SerialPort1.Write(BufferTOF, 0, BufferTOF.Length)
'Disable sensor
Dim BufferBOF() As Byte = {&H1B, &H63, &H34, &H20}
SerialPort1.Write(BufferBOF, 0, BufferBOF.Length)
'Enable(SLip) ESC c 0 4
Dim Buffer2() As Byte = {&H1B, &H63, &H30, &H4}
SerialPort1.Write(Buffer2, 0, Buffer2.Length)
SerialPort1.WriteLine("WHY")
'Release
Dim BufferEnd() As Byte = {&H1B, &H71}
SerialPort1.Write(BufferEnd, 0, BufferEnd.Length)
End If
If SerialPort1.IsOpen = True Then SerialPort1.Close() --------------------编程问答-------------------- 直接用水晶报表打印好了。
补充:.NET技术 , VB.NET