ACBr PosPrinter

[Arnaldo Cruz]

Colegas estou com uma impressora MP-4000 TH, usando uma Porta Virtual

quando mando a impressão sai toda desconfigurada

parte do codigo de impressão

DataModule.ACBrPosPrinter1.ImprimirLinha('<e><n><ce>' + sTexto + '</ce></n></e>');
sTexto :=' CNPJ/MF : ' + FormataDoc(CnpjEmpresa,2);
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='ENDERECO : ' + EnderecoEmpresa;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='  BAIRRO : ' + BairroEMpresa;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='     CEP : ' +  FormataDoc(CepEmpresa,4);
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='  CIDADE : ' + CidadeEmpresa;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='TELEFONE : ' + FoneEmpresa;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
FDataModule.ACBrPosPrinter1.ImprimirLinha('</linha_simples>');
sTexto :='    TIPO : ' + TipoPag;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='   CUPOM : ' + cdsCupomPDV.AsString + '  -   SEG VIA';
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='    DATA : ' + DateToStr(cdsCupomDATA.AsDateTime) + '   HORA : ' + cdsCupomHORA.AsString;
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
sTexto :='OPERADOR : ' +  cdsCupomUSUARIO.AsString  + ' - ' + 'CAIXA : ' + completastr('E','0',cdsCupomCAIXA.AsString ,2);
FDataModule.ACBrPosPrinter1.ImprimirLinha('<ae>' + sTexto + '</ae>');
FDataModule.ACBrPosPrinter1.ImprimirLinha('</linha_simples>');

Segue anexo a imagem da impressao

 

Configuração do componente

ACBrNFeDANFeESCPOS.ImprimeEmUmaLinha          := True;
    ACBrNFeDANFeESCPOS.TamanhoFonte_DemaisCampos  := 8;
    ACBrNFeDANFeESCPOS.ImprimeDescAcrescItem      := True;
    ACBrPosPrinter1.Modelo                        := TACBrPosPrinterModelo(IDIMPRESSORA);
    ACBrPosPrinter1.Device.Porta                  := IDPORTA;
    ACBrPosPrinter1.Device.Baud                   := StrToInt(IDVELOCIDADE);
    ACBrPosPrinter1.ControlePorta                 := True;
    ACBrPosPrinter1.LinhasEntreCupons             := PuloCupom;
    ACBrPosPrinter1.ColunasFonteNormal            := Colunas;
    ACBrPosPrinter1.IgnorarTags                   := False  ;
    ACBrPosPrinter1.TraduzirTags                  := True

 

Agradeço a quem puder dá uma dica de como resolver

Obrigado

 

Arqlog

[Daniel Simoes]

Primeiro faça testes exaustivos com o PosPrinterTeste...  provavelmente você está configurando o Modelo errado...

[Arnaldo Cruz]

Não é problema de modelo não.

tenho 2 impressora de cada dos modelos da bematech 2500,4000 e 4200.

na 2500 e 4200 inclusive na mp4000 imprimem certo, somente em uma das mp4000 acontece isso; não sei porque

com uma do modelo MP-4000 TH só funciona via spooler , o porque eu não sei

O problema é o seguinte

Duas impressora MP-4000 TH

Instalo uma porta virtual

Testo a primeira funciona perfeitamente. todos os comando dos PosPrinter

Desconecto a primeira e conecto a segunda

A segunda não funciona com os comando do PosPrinter nem a pau.

Desconecto e conecto a primeira -- tudo funciona perfeitamente.

Essa impressora só passa a funcionar quando desinstalo a porta virtual e instalo o Spooler e faço a impressão pelo fastReport.

nem mandando stream funciona.

as configurações da impressora estão idênticas a primeira

 

 

 

 

[Daniel Simoes]

Nesse caso a única possibilidade é problema no equipamento...

Tente atualizar o Firmware

[Bruno Meireles]

Pegue o exemplo que vem no repositório, configure tudo certinho e se continuar realmente deve ser a impressora mesmo ...