Tópico anterior Próximo tópico Novo tópico
VB / VBA
#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