[resolvido] Acionar Guilhotina de impressora térmica

Moderador: Avelino Sampaio

Ivan Carlo
Mensagens: 38
Registrado em: 25 Jul 2016, 18:59

[resolvido] Acionar Guilhotina de impressora térmica

Mensagempor Ivan Carlo » 21 Jan 2018, 12:55

Bom Dia amigos.
Trabalho com uma impressora térmica por corte de guilhotina.
Emito um relatório com várias linhas de acordo com o pedido.
O que preciso é, acionar a guilhotina para corte do ticket a cada vez que for impresso uma linha do tipo ------------------.

Exemplo:
Nome: Fulano de tal
Telefone: 9999999
Endereço: rua tal, numero tal
Cidade: tal
------------------------------------- (Aqui eu aciono a guilhotina para o corte)
Nome: Fulano de tal
Telefone: 9999999
Endereço: rua tal, numero tal
Cidade: tal
--------------------------------------(Mais um corte)
e assim por diante até o termino do relatório.
Tenho os comandos para o corte, só não sei onde e como colocá-lo no relatório para funcionar.
Obrigado desde já.
:shock: :shock: :?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1885
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Acionar Guilhotina de impressora térmica

Mensagempor Avelino Sampaio » 21 Jan 2018, 15:29

Ivan

e quais são os comandos para o corte ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Ivan Carlo
Mensagens: 38
Registrado em: 25 Jul 2016, 18:59

Re: Acionar Guilhotina de impressora térmica

Mensagempor Ivan Carlo » 21 Jan 2018, 22:37

Avelino Sampaio escreveu:Ivan

e quais são os comandos para o corte ?

Aguardamos

Boa Noite Mestre Avelino.

O Comando a ser usado é: <ESC> ‘w’

Avatar do usuário
Avelino Sampaio
Mensagens: 1885
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Acionar Guilhotina de impressora térmica

Mensagempor Avelino Sampaio » 22 Jan 2018, 08:18

Ivan

Copie e rode o código abaixo e veja se a guilhotina será acionada:

Código:
OPEN "lpt1" FOR Output AS #1
print #1, "Oi, mundo" 'imprime esta linha
print #1, chr(27) & "w" 'aciona a guilhotina
Close #1


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Ivan Carlo
Mensagens: 38
Registrado em: 25 Jul 2016, 18:59

Re: Acionar Guilhotina de impressora térmica

Mensagempor Ivan Carlo » 22 Jan 2018, 14:34

Avelino Sampaio escreveu:Ivan

Copie e rode o código abaixo e veja se a guilhotina será acionada:

Código:
OPEN "lpt1" FOR Output AS #1
print #1, "Oi, mundo" 'imprime esta linha
print #1, chr(27) & "w" 'aciona a guilhotina
Close #1


Aguardamos


Obrigado pela atenção Mestre.

Por infelicidade a minha impressora parou de se comunicar com o pc. :shock:
Ela é ligada pela USB, Vou substituir o : "lpt1" por "USB1".
Vou fazer os testes depois de enviar a impressora para a assistência técnica (Farei isso hoje ainda) e logo depois que ela voltar eu publico o resultado.
Acho que estou com problemas na saida USB da impressora. Recebi uma descarga de raios de relâmpago na rede e queimou alguns aparelhos meus aqui e afetou a impressora também.
Após resolvido eu volto ao tópico.
Obrigado por enquanto.
:cry: :shock:

Avatar do usuário
Avelino Sampaio
Mensagens: 1885
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Acionar Guilhotina de impressora térmica

Mensagempor Avelino Sampaio » 22 Jan 2018, 14:48

Ok Ivan

Nota: para testar, via USB, configure conforme este meu artigo:

http://www.usandoaccess.com.br/dicas/imprimir-direto-porta-impressora-open.asp?id=1&idlista=209

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Ivan Carlo
Mensagens: 38
Registrado em: 25 Jul 2016, 18:59

Re: Acionar Guilhotina de impressora térmica

Mensagempor Ivan Carlo » 24 Jan 2018, 13:49

Avelino Sampaio escreveu:Ok Ivan

Nota: para testar, via USB, configure conforme este meu artigo:

http://www.usandoaccess.com.br/dicas/imprimir-direto-porta-impressora-open.asp?id=1&idlista=209

Aguardamos


Bom dia Sr. Avelino.
Estou fazendo alguns testes com a impressora da Firma.
Usei a sugestão colocando no evento Após formatar como um procedimento de evento, alinha ficou assim:

Código: Selecionar todos

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Open "\\DESKTOP-PCBN1M8\Star TSP700 (TSP743)" For Output As #1
    Print #1, "Oi, mundo" 'imprime esta linha
   Print #1, Chr(27) & "w" 'aciona a guilhotina
   Close #1
End Sub

Funcionou certinho. Então eu experimentei alterar a linha de comando de corte:

Código: Selecionar todos

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Open "\\DESKTOP-PCBN1M8\Star TSP700 (TSP743)" For Output As #1
    Print #1, "Oi, mundo" 'imprime esta linha
   'Print #1, Chr(27) & "w" 'aciona a guilhotina (Comentário)
   Close #1
End Sub


E obtive o mesmo efeito. Ou seja: Imprimiu a linha e fez o corte. A impressora faz o corte automaticamente quando termina a impressão.
:? :?

Ivan Carlo
Mensagens: 38
Registrado em: 25 Jul 2016, 18:59

Re:Acionar Guilhotina de impressora térmica

Mensagempor Ivan Carlo » 28 Jan 2018, 09:50

Amigos, consegui resolver o problema do corte.
Configurei a impressora da seguinte maneira:
Sem título.jpg


Sendo assim, cada impressão foi feita em um relatório separado (Individual) e o corte saiu conforme esperado.
Obrigado. ;)
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Última edição por Ivan Carlo em 28 Jan 2018, 09:59, editado 2 vezes no total.

Avatar do usuário
Avelino Sampaio
Mensagens: 1885
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Acionar Guilhotina de impressora térmica

Mensagempor Avelino Sampaio » 28 Jan 2018, 09:53

Ok Ivan

muito obrigado pelo feedback!
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes