O comando que necessito enviar é:
VB: chr(&H1B) & chr(&H56) & 'Texto' & chr(&H03)
Pode ser em VB ou em outra linguagem.
Conecto a impressora por USB porém ela não aparece na porta COM para enviar o comando.
O programinha atualmente é assim:
Sub GetSerialPortNames()
' Mostra todas as portas conectadas em uma lista
For Each sp As String In My.Computer.Ports.SerialPortNames
ListBox1.Items.Add(sp)
Next
End Sub
Sub SendSerialData(ByVal data As String)
' Envia uma string para a porta serial
Using com1 As IO.Ports.SerialPort =
My.Computer.Ports.OpenSerialPort(ListBox1.SelectedItem)
com1.WriteLine(data)
End Using
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
GetSerialPortNames()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SendSerialData(Chr(&H1B) & Chr(&H56) & "Teste" & Chr(&H03))
End Sub
Agradeço qualquer ajuda, obrigado.