У меня была такая же проблема несколько месяцев назад, но, поговорив с парнями из Epson, я сделал это. Это как получить статус бумаги
Я надеюсь, что это поможет вам.
'************* *********
'Формат ASCII DLE EOT n
Десятичное 16 4 n
**********************
'n Функция
'1 Передать состояние принтера
'2 Передача в автономном режиме
'3 Ошибка передачи статуса
'4 Передать состояние датчика рулона бумаги
***********************
comPort.Write (Chr (16) и Chr (4) и Chr (4))
Dim aReplyBuffer (0) As Byte
Dim intNBytes As Integer = 0
comPort.Read (aReplyBuffer, 0, 1)
И ЭТО ОТВЕТ
'Статус ответа
'имя
'0 Ошибка
'30 Нет бумаги
'18 ОК