Bematech MP 4200 TH

[crisvam]

Colegas,

Alguem já viu algo desse tipo:

Uso a impressora Bematech MP 200 TH termica, com USB. Imprimia corretamente e de repente parou de imprimir.

Então apaguei tudo e reconfigurei-a, A impressora é reconhecida pelo windows, imprime a página de teste, mas não imprime pelo meu sistema.

Não é o Sistema, porque em outros clientes a impressora imprime normalmente.

ALGUEM PODERIA ME DR UMA DICA DO QUE PODE TER ACONTECIDO?

Agradeço antecipadamente aos colegas.

[kapiaba]

Mostre como vc. está imprimindo.

[jbinfo]

é para impressão do SAT?

[rochinha]

Amiguinhos,

Você precisa comfigurar se ela recebe os comandos ESC/POS padrão ou ESC/POS Bema.

[crisvam]

Mostre como vc. está imprimindo.

Rocinha, grato pela atenção. Mas desculpe a minha ignorância, onde faço isso. Se poder me desenhar, por favor.

[crisvam]

Eu estou usando a Dll MP2032. E isto acontece apenas em um cliente, em outros não acontece.

O Sistema é o Mesmo, a configuração é a mesma, mas neste cliente a Função IniciaPorta, me retorna 0 (zero) e claro não imprime.

O rocinha me sugeriu ver o ESC/POS ou ESC/BEMA, confesso que criei asa.

[rochinha]

Amiguinho,

Você já instalou o driver ok? Esta impressora é de lua e quando ela quer funcionar vai logo de cara, mas quando é pra ferrar, ferra a vida toda.

Voce precisará instalar um aplicativo para ela chamado Bematech User Interface, nele voce pode configurar uma série de coisas inclusive fazer testes de impressão de codigos de barra e QR-Code.

Vale lembrar que precisa aparecer dois devices relativos a esta impressora nas Configurações de Impressoras, um sendo o emulador USB e o outro o driver da impressora. O primeiro define a porta COM3 e USB simulada e o segundo você verifica se as configurações de portas estão apontando para as portas do simulador.

[leo@lhsistemas.com]

Crisvan, bom dia.

Isto também acontecia comigo na BEMATECH NÃO-FISCAL quando conectada via USB, parece que a fila de impressão fica cheia a trava qualquer impressão, só volta a funcionar ser reiniciar o PC.

Solução: O cliente comprou uma USADA no OLX que tem a conexão SERIAL, daí está funcionando perfeitamente a mais de 3 meses sem fica me ligando...Graças a Deus !!!

[crisvam]

Como usa a dll mp2032, estou estranhando que a mesma impressora em um mesmo computador imprimir quando a máquina serve como estação, seja, quando o sistema é lido de um servidor a máquina ligada na estação configurada para a MP 4200, imprime. Quando o sistema é instalado na máquina onde a impressora MP 4220 está instalada, ela não imprime....

Então, o mesmo sistema via rede imprime, quanda na máquina onde está a impressora não imprime.

E, a impressora pelo aplicativo da Bematech user atende normalmente ao chamado normalmente. Poderiam sugerir que é o o meu sistema, mas em outros clientes ele imprime normalmente, apenas em um cliente ele não imprime.

[kapiaba]

Em que porta esta impressora está instalada?

comentário da bematech:

Este pacote da MP2032.dll é específico para os modelos de impressoras térmicas MP-2500 TH, MP-4000 TH, MP-4200 TH e MP100S TH. Acompanha arquivo de ajuda e arquivo .ini para geração de log.

Você viu o arquivo.ini?

http://partners.bematech.com.br/suporte-e-recursos/paginas/DetalhesDownload.aspx?ID=90

Impressão é +- assim ou fazes de outro jeito?

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

Ou imprime assim?

http://fivewin.com.br/index.php?/topic/20995-help-bematech-mp-2500/

Ou assim:

http://fivewin.com.br/index.php?/topic/18676-declaracao-da-dll-para-bematech-mp4000-th/

Abs.

[kapiaba]

STATIC XDLL


FUNCTION VENDAS()


   IF .NOT. FILE( "MP2032.DLL" )


      ? [MENSAGEM DE ERRO]


   ELSE


      XDLL := LoadLibrary( "MP2032.DLL" )  // 32 Bits


   ENDIF


   ACTIVATE...


   //... TERMINOU...


   FreeLibrary( xDll )

   xDll := Nil


RETURN NIL



// NO FINAL FINAL DO MODULO DE VENDAS: NAO PONHA EM FUNCTION.



*******************************************************************************

DLL32 Function BReseta() AS _INT PASCAL FROM "PrinterReset" LIB XDLL

DLL32 Function LeStatus() AS _INT PASCAL FROM "Le_Status" LIB XDLL

DLL32 Function BInicia_Porta(Porta AS STRING) AS _INT PASCAL FROM "IniciaPorta" ;

      LIB XDLL

DLL32 Function BReset() AS _INT PASCAL FROM "PrinterReset" LIB XDLL

DLL32 Function Taxa_Serial(Taxa AS LPSTR) AS _INT PASCAL FROM "ConfiguraTaxaSerial" ;

      LIB XDLL

DLL32 Function BFecha_Porta() AS _INT PASCAL FROM "FechaPorta"                  ;

      LIB XDLL

DLL32 Function BImp_Texto(Texto AS STRING) AS _INT PASCAL FROM "BematechTX"     ;

      LIB XDLL

DLL32 Function BFormataTX(cTexto AS LPSTR,nTipo AS _INT,nItalico AS _INT,;

      nSublinhado AS _INT,nEXpandido AS _INT,nEnfatizado AS _INT) AS _INT PASCAL;

FROM "FormataTX" LIB XDLL

DLL32 Function BComandoTX(Comando AS STRING,nTam AS _INT) AS _INT PASCAL;

      FROM "ComandoTX" LIB XDLL


DLL32 Function Bema_Bitmap(vCam AS STRING,Modo AS LPSTR) AS _INT PASCAL        ;

      FROM "ImprimeBitmap" LIB XDLL


DLL32 Function BEstatus() AS _INT PASCAL FROM "BematechTX" LIB XDLL

DLL32 Function BCorta_Papel(Corte AS LPSTR) AS _INT PASCAL FROM "AcionaGuilhotina";

      LIB XDLL

DLL32 Function BModelo_Imp(nImp AS LPSTR) AS _INT PASCAL                         ;

      FROM "ConfiguraModeloImpressora" LIB XDLL

DLL32 Function BQRCode(nNivel AS _INT,nTam AS _INT,nTipo AS _INT,nVersao AS _INT,;

      nFormato AS _INT,cQRCode AS STRING) AS LONG PASCAL;

      FROM "ImprimeCodigoQRCODE" LIB XDLL

DLL32 Function BImp_Bitmap(cArq AS STRING, nModo AS _INT) AS LONG PASCAL;

      FROM "ImprimeBitmap" LIB XDLL

[crisvam]

STATIC XDLL
 
FUNCTION VENDAS()
 
   IF .NOT. FILE( "MP2032.DLL" )
 
      ? [MENSAGEM DE ERRO]
 
   ELSE
 
      XDLL := LoadLibrary( "MP2032.DLL" )  // 32 Bits
 
   ENDIF
 
   ACTIVATE...
 
   //... TERMINOU...
 
   FreeLibrary( xDll )
   xDll := Nil
 
RETURN NIL
 
 
// NO FINAL FINAL DO MODULO DE VENDAS: NAO PONHA EM FUNCTION.
 
 
*******************************************************************************
DLL32 Function BReseta() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function LeStatus() AS _INT PASCAL FROM "Le_Status" LIB XDLL
DLL32 Function BInicia_Porta(Porta AS STRING) AS _INT PASCAL FROM "IniciaPorta" ;
      LIB XDLL
DLL32 Function BReset() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function Taxa_Serial(Taxa AS LPSTR) AS _INT PASCAL FROM "ConfiguraTaxaSerial" ;
      LIB XDLL
DLL32 Function BFecha_Porta() AS _INT PASCAL FROM "FechaPorta"                  ;
      LIB XDLL
DLL32 Function BImp_Texto(Texto AS STRING) AS _INT PASCAL FROM "BematechTX"     ;
      LIB XDLL
DLL32 Function BFormataTX(cTexto AS LPSTR,nTipo AS _INT,nItalico AS _INT,;
      nSublinhado AS _INT,nEXpandido AS _INT,nEnfatizado AS _INT) AS _INT PASCAL;
FROM "FormataTX" LIB XDLL
DLL32 Function BComandoTX(Comando AS STRING,nTam AS _INT) AS _INT PASCAL;
      FROM "ComandoTX" LIB XDLL
 
DLL32 Function Bema_Bitmap(vCam AS STRING,Modo AS LPSTR) AS _INT PASCAL        ;
      FROM "ImprimeBitmap" LIB XDLL
 
DLL32 Function BEstatus() AS _INT PASCAL FROM "BematechTX" LIB XDLL
DLL32 Function BCorta_Papel(Corte AS LPSTR) AS _INT PASCAL FROM "AcionaGuilhotina";
      LIB XDLL
DLL32 Function BModelo_Imp(nImp AS LPSTR) AS _INT PASCAL                         ;
      FROM "ConfiguraModeloImpressora" LIB XDLL
DLL32 Function BQRCode(nNivel AS _INT,nTam AS _INT,nTipo AS _INT,nVersao AS _INT,;
      nFormato AS _INT,cQRCode AS STRING) AS LONG PASCAL;
      FROM "ImprimeCodigoQRCODE" LIB XDLL
DLL32 Function BImp_Bitmap(cArq AS STRING, nModo AS _INT) AS LONG PASCAL;
      FROM "ImprimeBitmap" LIB XDLL

Muito grato João, vou fazer assim, se der certo comunico no forum

[crisvam]

Caros colegas, obrigado pela ajuda. O meu problema foi resolvido, não me pergunte como, que não saberei explicar. Essa impressora MP-4200 TH tem alguma coisa que parece promessa de político. Vejam> de uma hora pra outra, sem nenhuma mudança no meu sistema e nem na configuração da impressora, na mesma máquina com o mesmo sistema opracional...Simplesmente voutour a funcionar.

Vá dormir com uma coisa dessa?

[Theotokos]

Bom Dia! Aproveitando o Topico!!!!!!!!!!!!!!!!

Utilizo esta impressora em um Cliente, e funcionando tudo bem. Imprimo utilizando a FastReport... configurei um arquivo .FR3 como impressão Altura Infinita na configuração da pagina... mas quando mando imprimir um Recibo por exemplo com muitas linhas, a impressão não passa de 30cm de impressão, não terminando toda a impressão...

Como faço para aumentar este tamanho, já que na configuração não existe esta opção o que tem são: 1)48mm x 30cm, 2)48mm, 3)80mm x 30cm, 4)80mm

tentei todas elas mas sem sucesso...