EPSON TM T20

ANDYSARAGIOTTO 22/05/2013 07:31:19
#423827

alguem sabe?

AJSO 22/05/2013 11:10:26
#423843

Caro ANDYSARAGIOTTO


Experimenta isso:


Printer.FontSize = 10 [ô]Set up the control font.
Printer.FontName = [Ô]control[Ô] [ô]Control Font.
Printer.Print [Ô]F[Ô] [ô]Use special-function character to cut the paper to epson.
Printer.EndDoc


Boa Sorte

ANDYSARAGIOTTO 22/05/2013 11:33:52
#423848

AJSO, agradeço pela ajuda
mas eu uso o comando PRINT e nao o PRINTER
eu sei q o comando é CHR() E MAIS ALGUM NUMERO

NETMANIA 22/05/2013 15:17:02
#423869 Resposta escolhida

O que você precisa são os código de programação da impressora (quem mexeu com Clipper vai lembrar disso) cujo a linguagem chamava Epson ESC/P e/ou ESC/P 2.

Abaixo segue alguns comandos que achei, espero que funcione com a sua impressora:


CODE{ Controle de caracteres }
EscDraft = #27+[ô]x[ô]+[ô]0[ô]; // Modo Draft
EscNLQ = #27+[ô]x[ô]+[ô]1[ô]; // Modo NLQ
EscNLQRoman = #27+[ô]k[ô]+[ô]0[ô]; // Fonte NLQ [Ô]Roman[Ô]
EscNLQSansSerif = #27+[ô]k[ô]+[ô]1[ô]; // Fonte NLQ [Ô]SansSerif[Ô]
Esc10cpp = #27+[ô]P[ô]; // Espaçamento horizontal em 10cpp
Esc12cpp = #27+[ô]M[ô]; // Espaçamento horizontal em 12cpp
EscCondensedOn = #15; // Ativa o modo condensado
EscCondensedOff = #18; // Desativa o modo condensado
EscLargeOn = #27+[ô]W[ô]+[ô]1[ô]; // Ativa o modo expandido
EscLargeOff = #27+[ô]W[ô]+[ô]0[ô]; // Desativa o modo expandido
EscBoldOn = #27+[ô]E[ô]; // Ativa o modo negrito
EscBoldOff = #27+[ô]F[ô]; // Desativa o modo negrito
EscItalicOn = #27+[ô]4[ô]; // Ativa o modo itálico
EscItalicOff = #27+[ô]5[ô]; // Desativa o modo itálico
EscUnderlineOn = #27+[ô]-[ô]+[ô]1[ô]; // Ativa o modo sublinhado
EscUnderlineOff = #27+[ô]-[ô]+[ô]0[ô]; // Desativa o modo sublinhado
EscDblStrikeOn = #27+[ô]G[ô]; // Ativa o modo de passada dupla
EscDblStrikeOff = #27+[ô]H[ô]; // Desativa o modo de passada dupla
EscSupScriptOn = #27+[ô]S1[ô]; // Ativa o modo sobrescrito
EscSubScriptOn = #27+[ô]S0[ô]; // Ativa o modo subescrito
EscScriptOff = #27+[ô]T[ô]; // Desativa os modos sobrescrito e subescrito
{ Controle de página }
Esc6lpp = #27+[ô]2[ô]; // Espaçamento vertical de 6 linhas por polegada
Esc8lpp = #27+[ô]0[ô]; // Espaçamento vertical de 8 linhas por polegada
EscMarginLeft = #27+[ô]l[ô]+?; // Margem esquerda, onde [Ô]?[Ô] = Margem
EscMarginRight = #27+[ô]Q[ô]+?; // Margem direita, onde [Ô]?[Ô] = Margem
EscPaperSize = #27+[ô]C[ô]+?; // Tamanho da página, onde [Ô]?[Ô] = Linhas
EscAutoNewPageOn = #27+[ô]N[ô]+?; // Ativa o salto sobre o picote, onde [Ô]?[Ô] = Linhas
EscAutoNewPageOff = #27+[ô]O[ô]; // Desativa o salto sobre o picote
{ Controle da impressora }
EscReset = #27+[ô]@[ô]; // Inicializa a impressora (Reset)
EscLF = #10; // Avança uma linha
EscFF = #12; // Avança uma página
EscCR = #13; // Retorno do carro

Para mais detalhes, você ver o manual da Epson LQ 570/1070 direto do site do fabricante (http://files.support.epson.com/pdf/lq570p/lq570pu1.pdf).

ANDYSARAGIOTTO 22/05/2013 19:27:03
#423900

ja descobri como corta o papel da epson
é o comando
Print #1, Chr(27) + Chr(109), Len(Chr(27) + Chr(109));

agora gostaria de saber se alguem sabe como faz para negritar um texto impresso

NETMANIA 22/05/2013 22:42:01
#423910

Você já tentou olhar o manual da impressora para ver se ela tem suporte a alguma linguagem para configuração do estilo de impressão conforme mencionei anteriormente?

O código que postei era das matriciais, talvez eles possam funcionar na impressora termica. Caso não, o jeito é pesquisar ou ver se acha alguma coisa no site do fabricante.