VBMania

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á

ZAUPAJR
PRESIDENTE PRUDENTE
Cadast. em:Junho/2012

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

NQT
Nois que tá

#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

COMANDOS PARA IMPRESSÃO DIRETO NA PORTA