Erro impressora Elgin L42PRO sem utilizar Ribbon.

[Roberto Yunes]

Erro ao utilizar ACBRETQ sem ribbon. Utilizei o exemplo ETQTESTE.

Mesmo marcando nas configurações da impressora como "Térmica direta", quando envio a impressão ela ocorre corretamente, mas logo em seguida, retorna a configuração de fábrica para uso do ribbon: "transferência térmica", causando uma travamento na impressora, pois a mesma fica com a luz de falta do ribbon.
Alguém passando por isto?
Detalhe: a impressão em etiquetas térmicas e sem utilizar o ribbon reduz bastante o custo para nossos clientes.

[Juliomar Marchetti]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel Simoes]

olá @Roberto Yunes,

Pode por favor enviar um PrintScreen do Demo do ACBr, com quais as configurações você está utilizando ?

[Roberto Yunes]

Oi Daniel! Consegui resolver o erro do exemplo!
Na procedure "TFPrincipal.bEtqSimplesClick(Sender: TObject);" adicionei a função FinalizarEtiqueta(1,0):
"......
      DefinirCor(clBlue, 0, 0, 0);
      ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'RAÇÃO PARA CÃES ÁÉÍÓÚ 5KG', 0, True);
      ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'MÉDIO PORTE');
      ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
      ImprimirCaixa(10,32,56,13,1,1);
      ImprimirTexto(orNormal, 3, 3, 2, 16, 35, 'R$');
      ImprimirTexto(orNormal, 3, 4, 4, 12, 50, '20,59');
      FinalizarEtiqueta(1, 0);
....."


Obrigado! 

[Daniel Simoes]

@Roberto Yunes, o método "Imprimir", já chama o método "FinalizarEtiqueta", se for necessário.. veja o trecho de código abaixo...

procedure TACBrETQ.Imprimir(Copias: Integer; AvancoEtq: Integer);
var
  wCmd: AnsiString;
begin
  GravarLog('- Imprimir. Copias:'+IntToStr(Copias)+', AvancoEtq:'+IntToStr(AvancoEtq));

  AtivarSeNecessario;

  try
    // Verifica se é necessário IniciarEtiqueta. Só será utilizado quando
    //  o comando não foi enviado manualmente
    if (not (fsEtqInicializada or fsEtqFinalizada)) then
      IniciarEtiqueta;

    // Verifica se ficou um bloco de etiquetas sem ser Finalizado
    if (not fsEtqFinalizada) then
      FinalizarEtiqueta(Copias, AvancoEtq)            // <---------------- AQUI ---------------
    else
    begin  

 

Consegue me passar um passo a passo, de como reproduzir o problema ?

[Roberto Yunes]

Oi Daniel! 
Não tinha reparado, mas estranho isto!
Fiz somente o seguinte:
Primeiro retirei o ribbon (impressora Elgin  L42pro possui a opções térmica sem utilizar ribbon).

Segundo alterei nas propriedades da impressora "METODO DE IMPRESSÃO = Térmico Direto";

Terceiro configurei o ETQTeste na porta correta e enviei uma impressão teste. 

Resultado foi o travamento e a luz de off acessa (Não me lembro a cor). Travando a impressora até ser reinicializada.

Inseri o comando acima, resolveu.

Não realizei o debug, para ver o comportamento que vc citou, porque tive que devolver a impressora ao cliente.