PC Toledo

Olá, eu tenho uma impressora híbrida modelo DIEBOLD IM453H e gostaria de escrever um software que enviasse um comando para ela.

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:

Código: Selecionar todos

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.

Olá Inky,

Seja bem vindo ao fórum.

Em Harbour acho que pode ser assim (considerando a impressora setada como a padrão):

Código: Selecionar todos

/*
  compilar usando: Hbmk2 exemplo.prg -lhbwin
*/
Function Main()

 Hb_MemoWrit( "ArqPrin.Txt", Chr( 27 ) + Chr( 86 ) + "Teste" + Chr( 3 ) )
 Win_PrintFileRaw( GetDefaultPrinter(), "ArqPrin.Txt", "Impressao Teste" )
 
Return Nil

Obrigado!
Após muita pesquisa consegui.

Amiguinhos,

Obrigado!
Após muita pesquisa consegui.

Como? conte-nos.

PC Toledo

Enviar comando para impressora IM453H.

Enviar comando para impressora IM453H.

Enviar comando para impressora IM453H.

Enviar comando para impressora IM453H.

Enviar comando para impressora IM453H.