AcbrEtiqueta, trava depois de 9

[igor]

Ola gente desenvolvi uma rotina para imprimir tantas etiquetas qto o nro de volumes do cliente num pedido.

testei aqui na minha Argox, td funcionou direitinho, usei a porta COM.

mandei o exe pro cliente e ele esta falando que depois da 9a. etiqueta nao imprime mais e da erro de I/O

achei mto estranho... o cliente usa a impressora dele na LPT, sera q tem alguma coisa a ver?

nao sei o q falar pra eles... aqui funciona td certinho...

eis o codigo:

    ACBrETQ.Porta := edtPorta.Text;

    ACBrETQ.Ativar;


    i :=1;

    while i <= qryPedidovolume.Value do

    begin


      with ACBrETQ do

      begin


         ImprimirTexto(orNormal, 3, 2, 1, 0670, 0035, 'Pedido: ' + qryPedidocodigo.AsString);


         ImprimirTexto(orNormal, 3, 1, 2, 0520, 0035, 'Cliente: ' + COPY(qryPedidonome.Value,1,39)  );

         ImprimirTexto(orNormal, 3, 1, 2, 0420, 0035, COPY(qryPedidonome.Value,40,48)  );


         ImprimirTexto(orNormal, 3, 1, 1, 0320, 0100, 'End.: ' + Copy(qryPedidoendereco.AsString,1,38) );

         if Length(qryPedidoendereco.AsString) > 38 then ImprimirTexto(orNormal, 3, 1, 1, 0250, 0100, Copy(qryPedidoendereco.AsString,39,20) + '         ' + qryPedidobairro.AsString )

         else ImprimirTexto(orNormal, 3, 1, 1, 0250, 0100, qryPedidobairro.AsString );

         ImprimirTexto(orNormal, 3, 1, 1, 0180, 0100, qryPedidonome_cid.AsString );

         ImprimirTexto(orNormal, 4, 1, 2, 0080, 0800, inttostr(i)+'/' + qryPedidovolume.AsString );

         Imprimir(1);

      end;

      inc(i);

    end;


    ACBrETQ.Desativar;

[André Ferreira de Moraes]

Provavelmente o buffer da impressora está ficando cheio e causando erro.

Eu controlo enviando as etiquetas aos poucos, ou seja, a cada 10 etiquetas impressas dou um sleep antes de enviar o comando imprimir novamente.

[igor]

obrigado! vou tentar

[igor]

deu certo pus um sleep(2000) dentro do while, e nem ficou devagar nao!

vlww