Clipper On Line • Ver Tópico - Condensado na TM t-20

Condensado na TM t-20

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

Condensado na TM t-20

Mensagempor kebe1969 » 04 Mai 2020 17:35

Boa tarde !

Como faço para imprimir COMPRIMIDO na Epson TM T-20 ?
As configuracoes padrao não funcionam ( chr(15) )

Att
kebe1969
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 1
Data de registro: 04 Mai 2020 17:32
Cidade/Estado: Araranguá
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Condensado na TM t-20

Mensagempor paiva_dbdc » 06 Mai 2020 09:41

bom dia

tente

* MP-4200 Bematech Termica

PRIVATE mp_4200_INICIO :=chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)
PRIVATE mp_4200_EXPANDE :=chr(27) + chr(87) + chr(1)
PRIVATE mp_4200_cancelaEXPANDE:=chr(27) + chr(87) + chr(0)
PRIVATE mp_4200_CONDENSA:=chr(15)
PRIVATE mp_4200_NORMAL :=CHR(18)
PRIVATE mp_4200_NEGRITO :=chr(27) + chr(69)
PRIVATE mp_4200_cancelaNEGRITO:=chr(27) + chr(70)
PRIVATE mp_4200_DIREITA :=CHR(27) + CHR(97) + CHR(2) // ALINHA A DIREITA
PRIVATE mp_4200_CENTRO :=CHR(27) + CHR(97) + CHR(1) // ALINHA CENTRO
PRIVATE mp_4200_ESQUERDA:=CHR(27) + CHR(97) + CHR(0) // ALINHA A ESQUERDA
PRIVATE mp_4200_CORTA :=CHR(27) + CHR(119)

do case
case pcgc = [xx.xxx.xxx/0001-xx] .or. ; && tela & tela
tinte_15 = [S] .or. ; && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
tinte_15 = [B] && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
if tinte_15 = [B] && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
@ prow()+1, 00 say mp_4200_INICIO + [ ]+ mp_4200_CONDENSA && +[ ok 001]
else
@ prow()+1, 00 say chr(27)+chr(77)+[ ]+prt_15
endif

if tloja2_01_12 = [S] && Loja 29 "EPSON TM - T20 S/N: Impressora TERMICA EPSON TM - T20 c grilhotina "
vdet = CHR(27)+CHR(109)
@ prow()+1,00 say vdet && comando de grilhotina
endif
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Condensado na TM t-20

Mensagempor alaminojunior » 12 Mai 2020 11:37

Para Epson:
CHR(27) + CHR(33) + CHR(1)
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar de usuário

alaminojunior
Colaborador

Colaborador
 
Mensagens: 1689
Data de registro: 16 Dez 2005 20:26
Cidade/Estado: Ubatuba - SP
Curtiu: 27 vezes
Mens.Curtidas: 11 vezes




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro