Clipper On Line • Ver Tópico - Enviar comando para impressora IM453H.

Enviar comando para impressora IM453H.

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Enviar comando para impressora IM453H.

Mensagempor Inky » 06 Abr 2016 20:42

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:

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.
Inky
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 06 Abr 2016 20:33
Cidade/Estado: São Paulo/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Enviar comando para impressora IM453H.

Mensagempor Jairo Maia » 07 Abr 2016 09:17

Olá Inky,

Seja bem vindo ao fórum.

Em Harbour acho que pode ser assim (considerando a impressora setada como a padrão):
/*
  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
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Enviar comando para impressora IM453H.

Mensagempor Inky » 07 Abr 2016 14:10

Obrigado!
Após muita pesquisa consegui.
Inky
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 06 Abr 2016 20:33
Cidade/Estado: São Paulo/SP
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Enviar comando para impressora IM453H.

Mensagempor rochinha » 21 Abr 2016 13:02

Amiguinhos,

Obrigado!
Após muita pesquisa consegui.

Como? conte-nos.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro