Impressora de Etiqeutas Netum 9220l avanço de etiqueta.

[Pdvlopes Sistemas]

Tenho uma impressora 9220L e já consegui realizar a impressão utilizando ETQ TSPL pelo ACBrETQ.

Porém estou enfrentando um problema no avanço da etiqueta: mesmo programando o avanço após a impressão, a impressora não avança automaticamente para a próxima etiqueta.

Parece que ela não está reconhecendo o final da etiqueta pelo sensor (GAP) ao concluir a impressão. A etiqueta é impressa corretamente, mas o posicionamento só fica correto se eu pressionar manualmente o botão de avanço (FEED) na impressora após imprimir.

Alguém já passou por esse problema com esse modelo de impressora?

Segue abaixo o código implementado, além de fotos mostrando:

• como a etiqueta está sendo impressa atualmente;

• como deveria sair corretamente alinhada.

AtivarACBrETQ;

  with ACBrETQ do
  begin
    IniciarEtiqueta;

    ImprimirTexto(orNormal, 2, 1, 2, 0, 7,
      DMDados.CDSEMITENTEEMITENTE.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 5, 7,
      DMDados.CDSEMITENTELOGADOURO.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 7, 7,
      DMDados.CDSEMITENTEBAIRRO.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 9, 7,
      DMDados.CDSEMITENTECIDADE.Text + '/' +
      DMDados.CDSEMITENTEUF.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 11, 7,
      'Telefone: ' + DMDados.CDSEMITENTEFONE.Text);

    ImprimirTexto(orNormal, 2, 1, 2, 16, 7,
      prod.Text + ' ' + tamanho.Text + ' ' + cor.Text);

    ImprimirTexto(orNormal, 2, 1, 2, 27, 7,
      prod.Text + ' ' + tamanho.Text + ' ' + cor.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 33, 7,
      'R$' + venda.Text);

    ImprimirBarras(orNormal, barEAN13, 2, 2, 36, 7,
      barras.Text, 10);

    // segunda etiqueta
    ImprimirTexto(orNormal, 2, 1, 2, 0, 56,
      DMDados.CDSEMITENTEEMITENTE.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 5, 56,
      DMDados.CDSEMITENTELOGADOURO.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 7, 56,
      DMDados.CDSEMITENTEBAIRRO.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 9, 56,
      DMDados.CDSEMITENTECIDADE.Text + '/' +
      DMDados.CDSEMITENTEUF.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 11, 56,
      'Telefone: ' + DMDados.CDSEMITENTEFONE.Text);

    ImprimirTexto(orNormal, 2, 1, 2, 16, 56,
      prod.Text + ' ' + tamanho.Text + ' ' + cor.Text);

    ImprimirTexto(orNormal, 2, 1, 2, 27, 56,
      prod.Text + ' ' + tamanho.Text + ' ' + cor.Text);

    ImprimirTexto(orNormal, 2, 1, 1, 33, 56,
      'R$' + venda.Text);

    ImprimirBarras(orNormal, barEAN13, 2, 2, 36, 56,
      barras.Text, 10);

    FinalizarEtiqueta;

    Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));

    Desativar;