Impressão com a impressora Bematech MP-4000 TH.

[Barfis]

Bom dia pessoal estou com um problema na impressão de cupom não fiscal.

Em um dos meus cadastros tenho a opção de indicar a porta que vou enviar a impressão, mas agora surgiu um problema um novo cliente comprou uma impressora Bematech MP-4000 TH (USB) e a porta dela é a que o instalador gera, meus relatórios feito no quick imprime normalmente, mas os meu cupom não fiscal não imprime, não da erro simples mente não faz nada.

AssignFile(F, dmempresa5.tabempresaimpressora.Text);
        Rewrite(F);
        Writeln(F,#27#15 + '           Comprovante de venda.      ');
        Writeln(F,'                                                         ');
        Writeln(F,'Cartao                                   Cupom: '+ inttostr(dtmnotafiscal11.tabnotafiscalnumeronotafiscal.Value));
        Writeln(F,'' + vdata + '                                       ' + VHORA                    );
        Writeln(F,'_________________________________________________________');
        Writeln(F,'Qtd:                 Valor:                    Total:    ');
        cdsvenda.first;
        while not cdsvenda.Eof do
        begin
              Writeln(F,#27#15 + cdsvendanome.text );// imprime os dados da dbgrid
              Writeln(F,#27#15 + '' + inttostr(cdsvendaquantidade.value) + '                  '+ DBEdit2.Text + '                   ' +            DBEdit1.Text);            
              cdsvenda.Next; // pula para o proximo registro.
        end; 
       Writeln(F,'_________________________________________________________');
       Writeln(F,#27#15 + '     Qtde. Total: ' + IntToStr (Form19.cdstotal2quantidade.Value));
       Writeln(F,#27#15 + '     Total......: ' + DBEdit5.Text);
       Writeln(F,'_________________________________________________________');
       Writeln(F,#27#15 + 'Vendedor: ' + cdsvendadadosnumerovendedo.Text + ' ' + cdsvendadadosvendedor.Text);
       Writeln(F,'                                                         ');
       if (cdsvendadadoscliente.Text <> '') then
       begin
             Writeln(F,#27#15 + 'Cliente..: ' + cdsvendadadoscliente.Text);
             Writeln(F,#27#15 + 'Endereço.: ' + cdsvendadadosendereco.Text);
             Writeln(F,#27#15 + 'Numero...: ' + cdsvendadadosnumero.Text + ' ' + cdsvendadadoscomplemento.Text);
             Writeln(F,#27#15 + 'Bairro...: ' + cdsvendadadosbairro.Text);
             Writeln(F,#27#15 + 'Telefone.: ' + cdsvendadadostelefone.Text);
       end;
       riteln(F,'_________________________________________________________');
       Writeln(F,#27#15 + '' + dmempresa5.tabempresarodape.Text);
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho1.Text);
       Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho2.text);
       Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho3.text);
       Writeln(F,#27#15+ '' + dmempresa5.tabempresacabecalho4.Text);
       Writeln(F,'                                                         ');
       Writeln(F,'                                                         ');
       CloseFile(F);

Desde já agradeço!

[Jhonas]

Citar

Bom dia pessoal estou com um problema na impressão de cupom não fiscal.

Em um dos meus cadastros tenho a opção de indicar a porta que vou enviar a impressão, mas agora surgiu um problema um novo cliente comprou uma impressora Bematech MP-4000 TH (USB) e a porta dela é a que o instalador gera, meus relatórios feito no quick imprime normalmente, mas os meu cupom não fiscal não imprime, não da erro simples mente não faz nada.

Voce tem 2 opções:

1 - criar uma porta virtual direcionando a USB para a porta LPT1 ( acho que tem algo a respeito no forum )

2 - voce pode usar este componente para impressão em impressora matricial

https://sourceforge.net/projects/vdo/files/VDOPrint/

ou

https://www.google.com.br/?gws_rd=ssl#q=http://sourceforge.net/projects/vdo/files/VDOPrint/

abraço

[Barfis]

Jhonas, vlw pela dica vo testar a 2º.

vlw.

Abraço!