Impressora MP-4000TH USB (bematech não fiscal)

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Impressora MP-4000TH USB (bematech não fiscal)

Mensagem por asimoes »

Amigos do Forum,

Alguém poderia me dar uma luz? É o seguinte o meu cliente comprou esta impressora da bematech não fiscal, USB, para emissão de recibos/comprovantes, tem a dll mp2032.dll.
Pergunto, alguém tem alguma rotina para esta impressora? Usando esta dll?

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: Impressora MP-4000TH USB (bematech não fiscal)

Mensagem por alaminojunior »

Sem querer fazer chover no molhado...a programação para este tipo de impressora não é difícil.
A Bematech disponibiliza um manual com todas as funções da DLL, bem prático.
E também...acredito que você possa enviar os textos para ela atravéz da função printfileraw(), pois me parece que ela se comporta como uma "Generic Text Only".
Abraços.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Re: Impressora MP-4000TH USB (bematech não fiscal)

Mensagem por asimoes »

Pessoal,

Já resolvi, e estou postando os comandos aqui para quem quiser testar e usar.

Código: Selecionar todos

FUNCTION Main
   LOCAL CR_LF:=CHR(13)+CHR(10), cLinha, nHandleDLL
   nHandleDLL:=LoadLibrary("MP2032.DLL")
   DLLCALL(nHandleDLL,32,"IniciaPorta","USB")
   FT_FUSE( "C:\TEMP\ITBI.TXT" )
   DO WHILE ! FT_FEOF()
      cLinha:=FT_FREADLN()+CR_LF
      DLLCALL(nHandleDLL,Nil,"FormataTX",FT_FREADLN()+CHR(13)+CHR(10),2, 0, 0, 0, 0)
      FT_FSKIP()
   ENDDO
   FT_FUSE()
   DLLCALL(nHandleDLL,Nil,"AcionaGuilhotina",1)
   FREELIBRARY(nHandleDLL)
RETURN
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Responder