ENVIAR COMANDO ESC NO TEXTO

por **a.lima.silva** » 23 Jun 2021 12:42

Caros um amigo usa um sistema feito em clipper que ele não tem os fontes que imprime em porta LPTn, COMn sem nenhum problema.

Coloquei para funcionar uma impressora epson TM T20 USB e para fazer o sistema achar a porta foi tranquilo NET USE LPT1 \\127.0.0.1\NOME DA IMPRESSORA COMPARTILHADA

Entretanto ele a guilhotina não aciona ao final da impressão.

Se eu envio pelo bloco de notas ao final, corta ( defini isso no driver )

O comando para o corte seria #10#29#86#0 , acho que isso no clipper seria CHR(10) + CHR(29) + CHR(86) + CHR(0)

Mas colocado no texto é entendido como texto.

Ate enviei isso para um arquivo texto para ver como ficaria |GS|VB|NULL| coloque | | para simbolizar um retangulo em preto com a letra interna, ou se eu copiar e colar aqui VB

Alguem já resolveu isso ?

por **Jairo Maia** » 24 Jun 2021 03:43

Olá a.lima.silva,

Para impressoras térmicas da Epson eu uso: Chr(29)+"V"+Chr(66)+Chr(0) e funciona normal.

Se puder, teste essa função (em Harbour):

Func CortaPapel()
 Local cMsg
 If !File( "CortaPapel.Cfg" )
  cMsg := ""
  cMsg += Chr(29)+"V"+Chr(66)+Chr(0)
  hb_MemoWrit( "CortaPapel.Cfg" )
 Endi
 win_PrintFileRaw( GetDefaultPrinter(), "CortaPapel.Cfg", "Acionar Guilhotina" )
Return Nil

por **ANDRIL** » 25 Jun 2021 14:24

Tente CHR(27)+CHR(109) ou CHR(27)+CHR(105).