プリンターEpson TM-H5000II用にプログラミングしています。
関数 ESC c 0 4 を呼び出すときにスリップ紙を印刷しようとしています。
私が使用している基本的な手順:
- 用紙を手動で挿入する
- call ESC c 0 4 (合紙選択)
問題は、ESC c 0 4 を呼び出した後、用紙がプリンターから排出されることです。
プリンターからの用紙の排出を停止するにはどうすればよいですか?
これは可能ですか、それともプリンターの制限ですか?
2013-03-16 更新
別のエプソンのドキュメントを見つけました。TOF および BOF センサーを無効にしようとしています。しかし、私のコードが正しいか間違っているかはわかりません。誰かが問題を解決するためのヒントを教えてくれることを願っています。ありがとうございました
これがドキュメントです。ページ 1 http://postimage.org/image/i0mffniv9 ページ 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()