BEMATECH MP 4200TH nao executa charcters de comando

[juniorcamilo]

Amigos minha aplicacao ja impreme perfeitamente nas impressoras nao fiscais da BEMATECH , ate chegar o novo modelo MP4200TH via USB, ela nao executa os comandos para NEGRITO, CONDENSADO, EXPANDIDO e etc. Alguem pode me ajudar?

Código: Selecionar todos

 x_exp_a     := chr(14)
        x_exp_d     := chr(20)
        x_cond_d    := chr(27) + chr(80) + chr(18)
        x_cond_a1   := chr(27) + chr(64)
        x_cond_a2   := chr(27) + chr(77)
        x_cond_a3   := chr(27) + chr(80) + chr(15)
        x_cond_a4   := chr(27) + chr(80) + chr(15)
        x_cond_a5   := chr(27) + chr(77) + chr(15) && 156 char
        x_neg_a     := chr(27) + "E"
        x_neg_d     := chr(27) + "F"
        x_esp_a     := chr(27) + "0"
        x_esp_d     := chr(27) + "2"
        x_Ital_a    := chr(27) + "4"
        x_Ital_d    := chr(27) + "5"
        x_Supl_a    := chr(27) + chr(45) + "1"
        x_Supl_d    := chr(27) + chr(45) + "0"
        x_CondA6   := chr(27) + chr(83) + chr(49) && "1" Super Pequeno
        x_CondA6_D := chr(27) + chr(84)
        x_1_72      := chr(27) + chr(49)
        x_1_8       := chr(27) + chr(48)
        x_1_6       := chr(27) + chr(50)
        x_Retorna   := chr(27) + chr(10)

Para imprimir na USB da impressora, eu entro em COnf. de Impressoras, PORTAS e Ativo o POOL de Impressao selecionando a USB e LPT1..

desde ja muito obrigado.

[marca]

Ola pessoal bom dia
Sou novato aqui e espero que minha mensagem esteja dentro dos padroes adotados p. vcs aqui


É meu amigo passei p. este mesmo problema e foi complicado resolver pos o suporte nao ajudou muito neste caso, mas como nos programadores somos meio teimosos pegue ai a solução

É o seguinte
existem duas maneiras de vc resolver isso
1° Vc instala o driver virtual delas BemaUni_setup_v2.0.6.exe e a partir deste driver ela funciona normalmente caso vc queira imprimir direto na com da impressora
sem ele vc nao conseguira fazer ela reconhecer os caracteres

2° para funcionar com o driver normal dela digo BemaSetup_MP4K_v4.1.0.exe q. usa a usb vc tem q. usar os seguintes comandos
Impressora Bematech Mp 4200

Código: Selecionar todos

    // Funcionando Mp4200 SEM o driver virtual instalado e imprimindo NA IMPRESSORA CRIADA NA USB
    cManda := ""
    cManda += CHR(27) + "!" + CHR(00)  + "INICIAR NORMAL "                + CRLF  // Inicializa a impressora
    cManda += CHR(27) + "!" + CHR(01)  + "INICIAR COMPACTADO "            + CRLF  // Inicializa e finaliza compactado
    cManda += CHR(27) + "!" + Chr(09)  + "INICIAR COMPACTADO COM NEGRITO" + CRLF  // Inicializa e finaliza compactado
    cManda += CHR(27) + "!" + CHR(08)  + "ATIVA NEGRITO "                 + CRLF  // Ativa e desativa negrito
    cManda += CHR(27) + "!" + CHR(00)  + "INICIAR NORMAL "                + CRLF  // Inicializa a impressora
    cManda += CHR(27) + "!" + Chr(16)  + "ATIVA DUPLA LINHHA"             + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "!" + Chr(128) + "ATIVA SUBLINHADO"               + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "!" + Chr(32)  + "ATIVA EXPANDIDO"                + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "!" + CHR(01)  + Replicate("-",54)                + CRLF
    FOR I = 1 TO 8
      cManda+=  " " +  CRLF
    NEXT
    cManda += CHR(27) + "m"                                               + CRLF   // Corte parcial do papel
    cLisErr := "TESTE" + AllTrim(Str(Day(Date()))) + AllTrim(Str(Month(Date()))) + ".LOG"
    MemoWrit(cLisErr,cManda)
    cPorta := "MP-4200 TH"
    Set Printer To ( cPorta ) // Somente para setar a impressora
    PrintFileRaw( cPorta ,cLisErr)

Impressora Bematech Mp 4200

Código: Selecionar todos

    // Funcionando com mp4200 mas com o driver virtual instalado e imprimindo como se fosse em com BemaUni_setup_v2.0.6.exe
    cManda := ""
    cManda += CHR(27)+ Chr(116) + Chr(08)  + CRLF  // Inicializa a impressora
    cManda += "INICIADO MODO DE ACEITAR CARACTERES "                         + CRLF  // Inicializa a impressora
    cManda += CHR(27) + CHR(15) + "INICIAR COMPACTADO COM ESC E 15 "         + CRLF  // Inicializa e finaliza compactado
    cManda += CHR(27) + CHR(18) + "INICIAR NORMAL "                          + CRLF  // Inicializa a impressora
    cManda += CHR(27) + "E"     + "ATIVA NEGRITO "       + CHR(27) + "F"     + CRLF  // Ativa e desativa negrito
    cManda += CHR(27) + Chr(14) + "ATIVA EXPANDIDO  "    + CHR(27) + Chr(18) + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "-1"    + "ATIVA SUBLINHADO "    + CHR(27) + "-0"    + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "4"     + "ATIVA ITALICO "       + CHR(27) + "5"     + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "S0"    + "ATIVA sobrescritos "  + CHR(27) + "T"     + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "S1"    + "ATIVA subrescritos"   + CHR(27) + "T"     + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "N1"    + "ATIVA baixa densidade"                    + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "N2"    + "ATIVA densidade normal"                   + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "N3"    + "ATIVA alta densidade"                     + CRLF  // Inicializa e finaliza o negrito
    cManda += CHR(27) + "N4"    + "ATIVA altíssima densidade"                + CRLF  // Inicializa e finaliza o negrito
    cManda += Replicate("-",48)+CRLF
    FOR I = 1 TO 8
      cManda+=  " " +  CRLF
    NEXT
    oPub:wPorta := "COM2"
    cArq := fCreate(oPub:wPorta)
    fWrite(cArq,cManda)
    fClose(cArq)

[juniorcamilo]

vou testa muido obrigado

[juniorcamilo]

So pra constar ... deu certo a dica do amigo 'marca'

[andreitc]

Bom dia. Estou passando pelos mesmos problemas. Poderiam me informar onde baixo o arquivo BemaUni_setup_v2.0.6.exe.

Aguardo resposta.

Muito Obrigado.

[Clipper]

Prezado Colega

Pegue no link abaixo :

http://www.bematech.com.br/equipamento- ... ?#conteudo

Até logo.

Marcelo

[marbio]

Boa Tarde,

voce pode me ajudar, estou perdidinho em ECF, tenho um programa para farmacia popular, agora o governo quer
que o cupom seja vinculado no ECF o meu cliente tem uma impressora Bematech PM 2100, o que eu preciso e so acessar a impressora e mandar o cupom da goverto.

Grato

Marbio

[pena]

Uma pequena duvida amigo, vc disse que imprime em usb com clipper? como faz isso?

[marbio]

Boa Tarde

Eu nao disse que imprimir em USB, mas tem varios programa para fazer esta impressao
em USB.
voce monta um relatorio em txt, chama outro programa e pronto.

A minha duvida e referente a impressao direta na impressora Bematech pela serial.

se eu posso usar o ECF para imprimir um relatorio da farmacia popular.

Grato.

[clipsis]

Olá, boa noite a todos!!

Tentei com havia sugerido o companheiro Marca

1° Vc instala o driver virtual delas BemaUni_setup_v2.0.6.exe e a partir deste driver ela funciona normalmente caso vc queira imprimir direto na com da impressora
sem ele vc nao conseguira fazer ela reconhecer os caracteres

2° para funcionar com o driver normal dela digo BemaSetup_MP4K_v4.1.0.exe q. usa a usb vc tem q. usar os seguintes comandos
Impressora Bematech Mp 4200

Deu certo (+/-) com a 2°

Os comando CHR(27)+"!", funcionaram.

Existe algum comando para alterar a font da impressora. Está imprimindo com uma fonte maior e não cabe todos os caracteres na linha, causando a quebra.

O interessante é que o a impressão da configuração da impressora é feita em uma fonte menor. Mas quando mando a impressão pelo programa a font fica diferente (altera o formato dos caracteres) e fica maior

Alguma fonte como a Courier New, talvez resolvesse. (Parece que a configuração da impressora é feita com Courier New)

Abraços

[asimoes]

Olá pessoal,

Voltando ao assunto das bematech´s, com relação a impressão de uma logo, bitmap qual seria a sequência escape, alguém sabe?

Eu consigo a impressão usando a dll mp2032.dll, mas não queria ficar mais quebrando a cabeça toda vez que a bematech lança um modelo novo e ter que fazer adaptações com condicionais. Este método imprimindo para impressora usb direto usando o spooler do windows é perfeito, em tese serve para qq impressora,
2500, 4000 e 4200

[asimoes]

Com relação a acentuação, existe algum exemplo?