Clipper On Line • Ver Tópico - Impressora termica - Comandos

Impressora termica - Comandos

Discussão sobre Hardware em geral.

Moderador: Moderadores

 

Impressora termica - Comandos

Mensagempor rbonotto » 18 Nov 2010 09:01

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 !
Nota de Moderação:
Maligno: O presente tópico foi movido da seção CA-Clipper, uma vez que seu conteúdo não tem relação com os objetivos daquela seção, onde só podem constar dúvidas técnicas de programação diretamente relacionadas com o Clipper.
rbonotto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 253
Data de registro: 06 Mai 2005 18:52
Curtiu: 9 vezes
Mens.Curtidas: 2 vezes

Re: Impressora termica - Comandos

Mensagempor alxsts » 18 Nov 2010 11:21

Olá!

Você já tentou encontrar os manuais no Google, pesquisando pela marca/modelo das impressoras?
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Re: Impressora termica - Comandos

Mensagempor anacatacombs » 18 Nov 2010 11:32

Qual impressora?
anacatacombs
Membro Master

Membro Master
 
Mensagens: 472
Data de registro: 12 Jul 2005 16:53
Cidade/Estado: Cianorte-Paraná
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

Re: Impressora termica - Comandos

Mensagempor rbonotto » 18 Nov 2010 17:33

As impressoras mais comuns são as bematech e as diebold.
rbonotto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 253
Data de registro: 06 Mai 2005 18:52
Curtiu: 9 vezes
Mens.Curtidas: 2 vezes

Re: Impressora termica - Comandos

Mensagempor sambomb » 19 Nov 2010 16:46


  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

/*------------------------------------------------------------------------*/
Imagem

Rca Sistemas - Itaocara - RJ
Avatar de usuário

sambomb
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 250
Data de registro: 24 Out 2008 16:02
Cidade/Estado: Itaocara - RJ - Brasil
Curtiu: 16 vezes
Mens.Curtidas: 10 vezes

Re: Impressora termica - Comandos

Mensagempor rbonotto » 22 Nov 2010 08:40

Opa,

Obrigado Sambomb, vou testar agora mesmo !

Abraços,
rbonotto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 253
Data de registro: 06 Mai 2005 18:52
Curtiu: 9 vezes
Mens.Curtidas: 2 vezes




Retornar para Hardware

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 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