COMANDOS PARA IMPRESSÃO DIRETO NA PORTA

 Tópico anterior Próximo tópico Novo tópico

COMANDOS PARA IMPRESSÃO DIRETO NA PORTA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#473024 - 04/04/2017 17:45:48

ZAUPAJR
PRESIDENTE PRUDENTE
Cadast. em:Junho/2012


Boa tarde,

Eu utilizo o código abaixo para imprimir em uma impressora térmica não fiscal. Gostaria de saber onde eu encontro esses comandos, como mudar a fonte, deixar negrito etc.
Só consegui achar na net esses mesmos que estão no exemplo... se alguém puder ajudar, mesmo dando uma dica de como procurar sobre isso, eu agradeço.

Segue o código
  Open impressora For Output As #1
Print #1, Chr$(&H1B); "a"; Chr$(1); 'Centraliza a impressão
Print #1, Chr$(&H1B); "!"; Chr$(0); 'Fonte 9x9
Print #1, Chr$(&H1B); "!"; Chr$(17); 'Seleciona o modo dobrar altura
Print #1, "TOCA DA CORUJA"
Print #1, Chr$(&H1B); "!"; Chr$(0);  'Cancela modo dobrar altura
Print #1, "Campus II - Unoeste"
Print #1, "Presidente Prudente - SP"
Print #1, Chr$(&H1B); "a"; Chr$(0); 'Impressão a esquerda
Print #1, Chr$(&H1B); "!"; Chr$(1); 'Fonte 7x9
Print #1, "----------------------------------------------------------------"
Print #1, Chr$(&H1B); "a"; Chr$(1); 'Centraliza a impressão
Print #1, Chr$(&H1D); "!"; Chr$(1); 'Fonte 9x9
Print #1, "VALE 01"
Print #1, f(1) & " - " & "R$" & f(2)
Print #1, Chr$(&H1B); "a"; Chr$(0); 'Impressão a esquerda
Print #1, Chr$(&H1B); "!"; Chr$(1); 'Fonte 7x9
Print #1, "----------------------------------------------------------------"
Print #1, f(4)
Print #1, Chr$(&H1B); "a"; Chr$(1); 'Centraliza a impressão
Print #1, Chr$(&H1B); "!"; Chr$(0); 'Fonte 9x9
Print #1, "FICHA"

Print #1, ; vbCr + vbLf;

Print #1, "Agradecemos a Preferencia!!!"
Print #1, "Volte sempre!!!"
Print #1, ; vbCr + vbLf;
Print #1, Chr$(&H1D); "V"; Chr$(66); Chr$(0); 'Avança o papel e ativa o cutter
Close #1


NQT
Nois que tá

#473054 - 05/04/2017 11:19:08

MARCELO-TREZE
SAO VICENTE
Cadast. em:Abril/2009


Ja tentou usar o Printer.Font, Printer.Fontsize, etc

________________________________________________________________________________________
O orgulho cega até os sábios, ao ponto de não percebam que não são tão sábios como pensam.



#473058 - 05/04/2017 13:24:17

ZAUPAJR
PRESIDENTE PRUDENTE
Cadast. em:Junho/2012


Não.... vc tem algum exemplo? Nunca fiz desta forma....

NQT
Nois que tá

#473061 - 05/04/2017 14:42:34

FUTURA
.
Cadast. em:Maio/2004


Zaupa, estude com calma o link abaixo, tem muita coisa, com printer.print  , e print direto na porta. Inclusive exemplo pra você baixar. Sobre comandos, eles podem ser diferentes, dependendo marca e modelo de impressora.

http://www.macoratti.net/printer.htm



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário