Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2454 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Juliomar, não entendi. Estou fazendo homologação TEF, hai os caras so tem impressora Epson em USB.. Não estou conseguindo imprimir nessa impressora utilizando o EscPos.. Hai preciso gravar os comprovantes em PDF no ato da venda..

Postado

Obrigado pela resposta Daniel. Mas dessa forma, sempre que envio um comando para impressora gera uma nova pagina em branco...

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

procedure Tfrm_TEF.ACBrTEFDComandaECFImprimeVia( TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer; ImagemComprovante: TStringList; var RetornoECF: Integer);
var I,nVias : integer;
begin
  try
     case TipoRelatorio of
       trGerencial, trVinculado :
       begin
          // configuração //
          g.PrepararImpressao;
          if not g.ACBrPosPrinter.Ativo then
          begin
             g.ACBrPosPrinter.Ativar;
          end
          else
          begin
             Abort; // ala 31/08/2017
          end;
          g.ACBrPosPrinter.ImprimirLinha( '</zera>' );
          if dmin_NViasTef < 1 then
             dmin_NViasTef := 1;
          if dmst_ImpressaoRapidaTEF = dmco_Sim then
          begin
              if dmin_NViasTef = 1 then
              begin
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>' );
              end
              else if dmin_NViasTEF = 2 then
              begin
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text  );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
                 g.ACBrPosPrinter.ImprimirLinha( ImagemComprovante.Text  );
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
              end;
          end
          else
          begin
             g.Memo.Width  := 600;
             g.Memo.Height := 600;
             g.Memo.Lines.Clear;
             g.Memo.Lines.Add( ImagemComprovante.Text );
             // LER O TXT E IMPRIMI LINHA A LINHA - EM HOMOLOGAÇÃO EXIGE O TRATAMENTO LINHA A LINHA //
             if dmin_NViasTef = 1 then
             begin
                 for I := 0 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
             end
             else
             begin
                 for I := 0 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings[I-1] );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
                 // ** //
                 I := 0;
                 for I := 1 to g.Memo.Lines.Count -1  do
                 begin
                    g.ACBrPosPrinter.ImprimirLinha( ' ' + g.Memo.Lines.Strings[I-1] );
                 end;
                 g.ACBrPosPrinter.ImprimirLinha( '</corte_parcial>'      );
             end;
          end;
       end;
     end;
     RetornoECF := 1 ;
  except
     // RetornoECF := 0 ; ala 31/08/2017
     RetornoECF := 1; // ala 31/08/2017
  end;
end;
 

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

  • 6 meses depois ...
Postado

Amigo,

Tenho uma epson L355 jato de tinta.

Eu configurei a porta para: RAW:EPSONA74D57 (L355 Series)

Como vc configurou também o modelo da epson no ACBrPosPrinter?

Quais as outras configurações precisam ser setadas

Poderia postar como voce resolveu isso com impressora epson?

 

  • Este tópico foi criado há 2454 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.