Problemas com ACBRETQ

[vagner_univale]

Boa tarde pessoal, comecei a usar rescentemente o componente para impressão em PPLA, impressora ARGOX os-214 plus, depois de muita briga consegui gerar a etiqueta, utilizando o demo do ACBR, mais estou com problemas com a impressao, se mando imprimir mais de 12 etiquetas, me aparece um erro I/O error 103, sei que é um erro relacionado a dispositivos de entrada e saída, no caso com minha porta LPT1, gostaria de saber se alguém sabe o que pode estar acontecendo, irei postar o código q estou usando para impressão, grato desde já.

meu msn: [email protected]

///////////////////////////////// CODIGO ////////////////////////////////////

dm.imprimebarrasprodutos.First;

//SE PPLA

if (cbModelo.ItemIndex = 0) then

begin

while (dm.imprimebarrasprodutos.Eof = False) do

begin

with (ACBrETQ) do

begin

ACBrETQ.Porta := (cbPorta.Text);

ACBrETQ.LimparMemoria := True ;

ACBrETQ.Ativar;

if (nomeempresa.Checked = True) then

begin

//ImprimirTexto (Orientacao, Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal, Texto, SubFonte

ImprimirTexto (orNormal,2,2,1,255,5,dm.LempresasFantasia_empre.AsString);

end;

//ImprimirBarras(Orientacao, TipoBarras, LarguraBarraLarga, LarguraBarraFina, Vertical, Horizontal, Texto, AlturaCodBarras

ImprimirBarras(orNormal,'E','4','2',110,60,dm.imprimebarrasprodutoscodbarras_produto.AsString,100);

//PINTA OU NÃO O NOME DO PRODUTO

if (nome.Checked = True) then

begin

//ImprimirTexto (Orientacao, Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal, Texto, SubFonte

ImprimirTexto (orNormal,1,2,1,85,5,dm.imprimebarrasprodutosnome_produto.AsString);

end;

//PINTA OU NÃO O PREÇO DO PRODUTO

if (preco.Checked = True) then

begin

ImprimirTexto (orNormal,2,2,1,40,320,'R$');

ImprimirTexto (orNormal,2,2,1,40,400,arrumazeros(dm.imprimebarrasprodutosprecoprazo_produto.AsString));

end;

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

ACBrETQ.Desativar;

end;

dm.imprimebarrasprodutos.Next;

end;

end;

//////////////////////////////////////////////////////////////////

[André Ferreira de Moraes]

Vc tem q colocar um sleep pra que o spool da impressora não fique cheio. Por exemplo, vc pode fazer uma verificação que a cada 10 etiquetas ele espera 2 segundos antes de enviar mais etiquetas.

[vagner_univale]

Boa tarde anfm, coloquei um sleep de 2 e 3 segundos, em ambos o problema persistiu, tem alguma função que me retorne a quantidade de etiquetas já impressas ou se existe outra forma de solucionar meu problema, grato

[André Ferreira de Moraes]

Provavelmente vc tem q aumentar o intervalo, citei apenas um exemplo de usar 2 segundos.

[vagner_univale]

Boa tarde meu amigo, desculpe por estar encomodando assim, mais aumentei bastante o sleep, e continua, teria um exemplo de impressao, to achando q tem algo de errado, ela ta demorando para impressao de uma etiqueta para outra, independente do sleep, se puder me ajudar .. grato

msn: [email protected]

skype: vagner_univale

[André Ferreira de Moraes]

Veja o demo. Tente reproduzir o mesmo problema com ele.

[vagner_univale]

Boa tarde anfm, cara .. ca to eu aqui novamente .. use o codigo do demo .. e o problema persiste, segue anexo o codigo do demo ja alterado com um laço.

procedure TFPrincipal.bEtqSimplesClick(Sender: TObject);

var

  i: integer;

begin


      with ACBrETQ do

      begin

      Modelo := TACBrETQModelo(cbModelo.ItemIndex);

      Porta := 'LPT1';

      LimparMemoria := True ;

      Ativar;


            for i:=0 to 12 do

            begin

            //ImprimirTexto (Orientacao, Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal, Texto, SubFonte

            ImprimirTexto (orNormal,2,2,1,255,5,'PARANA FERRAMENTAS');


            //ImprimirBarras(Orientacao, TipoBarras, LarguraBarraLarga, LarguraBarraFina, Vertical, Horizontal, Texto, AlturaCodBarras

            ImprimirBarras(orNormal,'E','4','2',110,60,'0123456789123',100);


            //ImprimirTexto (Orientacao, Fonte, MultiplicadorH, MultiplicadorV, Vertical, Horizontal, Texto, SubFonte

            ImprimirTexto (orNormal,1,2,1,85,5,'CHOCOLATE BRANCO 250 GR');

            ImprimirTexto (orNormal,2,2,1,40,320,'R$');

            ImprimirTexto (orNormal,2,2,1,40,400,'20.59');


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

            end;


      Desativar;

      end;

end;

[André Ferreira de Moraes]

No exemplo acima vc não adicionou o sleep sugerido, mas, se mesmo com o sleep está ocorrendo o problema, pode ser algum problema na sua porta LPT, teste em outra máquina.

[Daniel Simoes]

Aonde está o Sleep ??

Depois de Imprimir insira:

Sleep(1000)

[vagner_univale]

desculpe meu amigo .. estava colocando o sleep de 4 segundos a cada 10 etiquetas .. agora colocando o sleep de 1 segundo a cada impressão.. ficou show .. muito obrigado pela força .. abraço, fiquei impressionado com a organização do forum e a prontidão no socorro dos colegas, show de bola .. estão de parabéns....