Página 1 de 1
Impressora termica - Comandos
Enviado: 18 Nov 2010 10:01
por rbonotto
Ola pessoal, estou com alguns clientes trocando as impressoras matriciais por termicas.
O que acontece é que eles compram usadas e não tem os programas de instalação... o que resultado é
que a impressão sai com uma letra muito fininha tornando a leitura uma porcaria.
Alguem saberia comandos genericos para trabalhar o tamanho/espessura das letras nestas impressoras ?
Desde ja obrigado e abraços !
Re: Impressora termica - Comandos
Enviado: 18 Nov 2010 12:21
por alxsts
Olá!
Você já tentou encontrar os manuais no Google, pesquisando pela marca/modelo das impressoras?
Re: Impressora termica - Comandos
Enviado: 18 Nov 2010 12:32
por anacatacombs
Qual impressora?
Re: Impressora termica - Comandos
Enviado: 18 Nov 2010 18:33
por rbonotto
As impressoras mais comuns são as bematech e as diebold.
Re: Impressora termica - Comandos
Enviado: 19 Nov 2010 17:46
por sambomb
Código: Selecionar todos
cTitulo := EcfEnfatizar() + EcfExpandidoV() + cTitulo + EcfAvancoLinha()
oImp:ImprimeRelatorioGerencial( cTitulo )
****************************************************************************
function EcfNormal()
****************************************************************************
*
* Coloca a letra em negrito
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 15:44:39
*
****************************************************************************
local Result := ''
if EcfMarca() == ecf_bematech
elseif EcfMarca() == ecf_daruma
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "N"
elseif EcfMarca() == ecf_elgin
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfEnfatizar()
****************************************************************************
*
* Coloca a letra enfatizada
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 15:44:39
*
****************************************************************************
local Result := ''//, cInicia := '', cCancela := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
Result := Chr(27) + Chr(87) + Chr(1)
else
Result := Chr(27) + Chr(69)
end
//cCancela := Chr(27) + Chr(70)
elseif EcfMarca() == ecf_daruma
Result := Chr(17)
//cCancela := Chr(19)
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "E"
elseif EcfMarca() == ecf_elgin
//Result := ""
Result := "\x1b!"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfExpandidoV()
****************************************************************************
*
* Coloca a letra expandido na vertical
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 17:52:03
*
****************************************************************************
local Result := ''//, cInicia := '', cCancela := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
Result := Chr(27) + Chr(100) + Chr(1)
else
Result := Chr(27) + Chr(15) + Chr(27) + Chr(14)
end
//cCancela := Chr(27) + Chr(100) + Chr(0)
elseif EcfMarca() == ecf_daruma
Result := '<e>'
//cCancela := '</e>'
elseif EcfMarca() == ecf_sweda
Result := Chr(16) + "V"
elseif EcfMarca() == ecf_elgin
//Result := ""
Result := "\x20"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfAvancoLinha()
****************************************************************************
*
* Salta uma linha
* Parametros:
* Retorno:
*
* Autor: Vagner Miv
* 30/10/2009 - 16:33:41
*
****************************************************************************
local Result := ''
if EcfMarca() == ecf_bematech
If EcfIsMfd()
//-- Desabilitar a formatação antes da proxima linha
Result := Chr(27) + Chr(64)
else
//-- Não necessita de comando especifico
Result := ""
end
//Result := Chr(27)
elseif EcfMarca() == ecf_daruma
Result := ""
//Result := '<br>'
elseif EcfMarca() == ecf_sweda
Result := Chr(10)
elseif EcfMarca() == ecf_elgin
Result := "\x1b!\x0\n"
end
Return Result
/*------------------------------------------------------------------------*/
****************************************************************************
function EcfItalico(cText)
****************************************************************************
*
* Coloca a letra em itálico
* Parametros: cText
* Retorno: Character
*
* Autor: Vagner Miv
* 29/10/2009 - 16:02:10
*
****************************************************************************
local Result := ''
//-- Coloca o texto italico -------------------------------------------//
If EcfMarca() == ecf_sweda
Result := Chr(16) + "I" + Chr(16) + "N"
else
Result := Chr(27) + Chr(52) + cText + Chr(27) + Chr(53)
end
Return Result
/*------------------------------------------------------------------------*/
Re: Impressora termica - Comandos
Enviado: 22 Nov 2010 09:40
por rbonotto
Opa,
Obrigado Sambomb, vou testar agora mesmo !
Abraços,