Impressão Etiqueta Zebra ZLP 2844 lenta

[AVInfo Sistemas]

Ae galera, gerei uma etiqueta pelo fastreport e mandei imprimir. A etiqueta sai direitinho, só que com uma lentidão estranha entre a impressão de uma e outra etiqueta. 

 

Já testei em impressoras mais robustas como a S4M e sai rapidinho, mas na danada dessa impressora demora uma eternidade. 

 

Alguém já passou por isso ?

[AnaCatacombs]

Verifique a velocidade de impressão.
Instale a impressora com o driver da zebra, vá em propriedades. Lá tem várias configurações: Velocidade de impressão, temperatura, e etc.

[gilmer]

Realmente no fast report é lento, eu declarei a dll em C e ficou super rápido, mas foi para argox  , em zebra eu fiz diretamente, amanhã mostro como fiz. 

[jbinfo]

Boa noite Pessoal,

 

Veja como estou usando...funciona beleza e rapido, uso a configuração pelo Zebra Design do tamanho da etiqueta, depois o codigo:

 

 

  ferase('PPLB.txt')

 

    xval1= [R$ ]+transform(val,[@E 99,999.99])

    xbarra='9'+alltrim(cod.barra)+'0'

 

    // LIMPA O BUFFER DA IMPRESSORA

    etiq_txt= [N]+chr(13)+chr(10)

 

    etiq_txt= etiq_txt +[Q800,100]+chr(13)+chr(10)

 

    // DETERMINA A TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA

    etiq_txt= etiq_txt +[D7]+chr(13)+chr(10)

 

 

    etiq_txt= etiq_txt +[A330,45,2,3,1,2,N,"]+xval1+["]+enter

    etiq_txt= etiq_txt +[b340,110,2,E30,2,2,38,B,"]+xbarra+["]+enter

    etiq_txt= etiq_txt +[A370,130,2,2,1,1,N,"]+alltrim(tam)+["]+enter

    etiq_txt= etiq_txt +[A370,150,2,2,1,1,N,"]+subs(des,1,30)+["]+enter

 

    etiq_txt= etiq_txt +[A340,200,2,2,1,1,N,"]+alltrim(tam)+["]+enter

    etiq_txt= etiq_txt +[A340,230,2,2,1,1,N,"]+alltrim(pro)+["]+enter

    etiq_txt= etiq_txt +[b340,300,2,E30,2,2,45,B,"]+xbarra+["]+enter

    if len(alltrim(des))>30

      etiq_txt= etiq_txt +[A370,320,2,2,1,1,N,"]+subs(des,1,30)+["]+enter

      etiq_txt= etiq_txt +[A370,340,2,2,1,1,N,"]+subs(des,31,20)+["]+enter

    else

      etiq_txt= etiq_txt +[A370,330,2,2,1,1,N,"]+alltrim(des)+["]+enter

    endif

    etiq_txt= etiq_txt +[A360,370,2,3,1,1,N,"]+"__________________________"+["]+enter

    etiq_txt= etiq_txt +[A380,385,2,2,1,1,N,"]+emens+["]+enter

    etiq_txt= etiq_txt +[A360,416,2,3,1,1,N,"]+"__________________________"+["]+enter

 

    etiq_txt= etiq_txt +[A380,486,2,2,2,3,N,"]+xloja+["]+enter

   etiq_txt= etiq_txt +[P1] + chr(10)

 

 if file(dire_rede+'JBUSB.JBI')  // se impressora usb

    memowrit("PPLB.txt", etiq_txt)

    xprn:=PrintFileRaw( locnf , "PPLB.txt" , "JB Etiquetas" )

else

    if file(dire_rede+"JBCOM") 

      nH := FOpen("COM1",2)

    else

      nH := FOpen("LPT1",2)

    endif

  Fwrite(nH,etiq_txt)

  Fclose(nH)

endif

 

Valeu e qq duvida estou a disposição,

 

Leandro Bassiquette

JB Informatica