Impressora termica - Comandos

[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 !

[alxsts]

Olá!

Você já tentou encontrar os manuais no Google, pesquisando pela marca/modelo das impressoras?

[anacatacombs]

Qual impressora?

[rbonotto]

As impressoras mais comuns são as bematech e as diebold.

[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

/*------------------------------------------------------------------------*/

[rbonotto]

Opa,

Obrigado Sambomb, vou testar agora mesmo !

Abraços,