ZEBRA TLP 2488 termica

[microvolution]

boa noite!
pra não ficar enchendo o PCTOLEDO/FORUM de tantos tópicos, gostaria que me ajudassem com a mesma dúvida no post https://pctoledo.org/forum/viewto ... 88#p124488.

Grato.

[rochinha]

Amiguinhos,

microvolution
Na verdade precisamos saber qual a sua dúvida. Pois se o tópico em questão não te ajudou, qual o problema estás enfrentando?

Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem ZPL.

Código: Selecionar todos

^XA
^MMT
^PW400
^LL0400
^LS0
^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS
^BY1,3,99^FT70,322^BCN,,Y,N
^FD>:Evite Lojas Genericas^FS
^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS
^BY1,3,104^FT96,182^B3N,N,,Y,N
^FD1135265909+^FS
^PQ1,0,1,Y
^XZ

Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem EPL.

Código: Selecionar todos

I8,A,001
Q400,024
q863
rN
S3
D7
ZT
JF
O
R231,0
f100
N
A63,353,0,3,1,2,N,"www.pctoledo.com.br"
A17,10,0,3,2,2,N,"Linguagem EPL"
B43,123,0,1,2,6,160,B,"11 3526-5909"
P1

Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem CPCL.

Código: Selecionar todos

! 0 200 200 320 1
PW 639
TONE 0
SPEED 3
ON-FEED IGNORE
NO-PACE
BAR-SENSE
T 4 1 77 10 IMPRESSORAS ZEBRA
BT 7 0 3
B 128 2 30 160 84 108 11 3526-5909
PRINT

[microvolution]

Na verdade precisamos saber qual a sua dúvida. Pois se o tópico em questão não te ajudou, qual o problema estás enfrentando?

, obrigado por tão prontamente responder.
por isso q postei lá no link https://pctoledo.org/forum/viewto ... 99#p124499 a dúvida.
Mas, foi bem interessante e bem detalhada a sua explicação pelas diferentes linguagens q nem sabia que existiam:
ZPL, EPL e CPCL.
Agora, pra q via programação a gente faça o teste das 3 linguagens, o procedimento é o que já sabemos né?
exemplo ZPL:

Código: Selecionar todos

@ prow()+1,0 say '^LL0400'
@ prow()+1,0 say '^LS0'
...

etc...
e assim para as outras EPL, CPCL, correto?
grato.

[rochinha]

Amiguinhos,

As linguagens existentes e suas impressoras correspondentes:
ZPL - Zebra Programming Language: GK420t, GC420t, S4M, ZM400/600, 105SL, Xi4
EPL - Eltron Programming Language: TLP2844, GK420t, GC420t
CPCL - Comtec Programming Control Language: iMZ220, iMZ320, P4T, QLn220, QLn320, QLn240, ZQ110, ZQ320 ZQ510, ZQ520, e várias outras portáteis da Zebra.

Manuais:
Zebra Zpl Manual Portugues
ZPL Basics
ZPL II Programming

Visualizadores:
ZPL Viewer
Online ZPL Viewer

Dúvidas? estão sendo respondidas Aqui

[paiva_dbdc]

OBSERVE se o papel é TERMICO

Ja apanhei uma vez porque o cliente muquirana comprou papel mais barato e NAO era termoco

papel = Etiqueta rs

se NAo for só imprime se tiver ribbom


e no setup da impressora tem como configurar tambem o tipo de impressao

[gilbertosilverio]

Ola amigos,

E possível colocar um contador numérico na etiqueta, no meu caso, emito as etiquetas em um impressora GC420t em zpl.

Montei este exemplo na Zdesigner, mais as etiquetas saem todos com a mesma numeração.

Código: Selecionar todos

^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ
^XA
^MMT
^PW831
^LL0799
^LS0
^BY2,3,119^FT785,758^BCB,,Y,N
^FD>:Volume: 1^FS
^PQ4,0,1,Y^XZ

Neste exemplo estou emitido 4 etiquetas, quero que saia o numero sequencial em "VOLUME:" da etiqueta impressa, isso e possível?

Agradeço as dicas.

[rochinha]

Amiguinhos,

Veja no menu lateral onde diz Código de Barras, tem uma setinha indicando um menu. Escolha Novo Contador e define numero inicial, se pergunta por novo número, digitos e incremento.

Se você imprime pelo ZD deixe a opção pergunta antes de imprimir ligado pois ele não guarda a sequencia.

[gilbertosilverio]

Rochina,

Obrigado, pela resposta.

Já tinha visto esta opção, o que eu queria e acabar com o loop dentro do programa, deixando um arquivo menor.

Pelo visto, só consigo montar um contador, fazendo um loop mesmo, como já faço no meu sistema.

Imaginei que houvesse algo como especifico pra isso, tipo numeração de pagina no word...

[gilbertosilverio]

Ola Amigos,

Estou com um problema e não sei como resolver.

Sempre usei a Zebra GC420t localmente e funciona que e um maravilha.

Agora os usuários estão acessando meu sistema via TS, e não consigo fazer a impressão das etiquetas via ZPL na estação local, o TS reconhece a impressora, consigo gerar uma pagina testes, mais a etiqueta não e impressa de nenhuma maneira.

Gero o arquivo .PRN no server, mais ele não e impresso.

Existe algum macete para imprimir as etiquetas via ZPL no Terminal Server

O server esta com W16, no painel de impressoras a zebra e reconhecida normalmente e esta online.

Alguma dica?

[gilbertosilverio]

Ola Amigos,

Consegui fazer a impressão, para que funcione e necessário instalar os drivers da impressora no server e desabilitar o EASY PRINT.

Fica a dica.

[marco.prodata]

Ola Amigos,

Consegui fazer a impressão, para que funcione e necessário instalar os drivers da impressora no server e desabilitar o EASY PRINT.

Fica a dica.

Mestre, como você manda a impressão de dentro do seu programa para a impressora na estação? Gera um arquivo txt/prn e usa:
run type <nomedoarquivo>.prn > LPTX

assim?

[gilbertosilverio]

Ola,

Essa rotina e bem antiga...

Código: Selecionar todos

FUNCTION ETIQUETA_ZEBRA(nPEDI, nVOLU)
   LOCAL nQTDE:=[1]
   PRIVATE TXTARQ, WLINHA, nTAMANHO, TXT:=[], xTXT:={}
   PRIVATE AAA := CurDrive()+":\"+CurDir()+[\TEMP\ETI]+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+[.PRN]
   PRIVATE ARQTESTE
   IF ( ARQTESTE := FCreate( AAA,0 ) ) == F_ERROR
      HWG_MSGINFO([Nao criou o arquivo]+CRLF+ALLTRIM(AAA))
      RETURN NIL
   ELSE
      FCLOSE(ARQTESTE)
   ENDIF
   SAIR()
   @ 01,00 SAY PADC([Imprimir etiquetas de envio - ZEBRA], 80 )
   @ 11,00 SAY [No. Pedido: ] GET nPEDI PICT [999999]
   @ 12,00 SAY [No Volumes: ] GET nVOLU PICT [999]
   READ

   IF LASTKEY() = 27
      SAIR()
      RETURN NIL
   ENDIF

   USE xMITI NEW SHARED
   SET INDEX TO XMITNOTA
   DBSEEK(nPEDI, .F.)

   IF FOUND()
      cCODCLI:=CODCLI ; cRAZ:=RAZAO   ; cNNF:=NNFE    ; xOBSER1:=OBS1
      xOBSER2:=OBS2   ; xOBSER3:=OBS3 ; xOBSER4:=OBS4 ; xVLRNFe:=TOTNOTAS
      CLOSE DATA
      USE xCLIENTE SHARED NEW
      SET INDEX TO xRCLICOD
      DBSEEK( cCODCLI, .F.)
      IF FOUND()
         cENDERECO:=ENDENTREGA ; cBAIRRO:=BAIEN ; cCIDADE:=CIDADEEN ; cUF:=ESTAEN ; cCEP:=CEPEN
         SAIR()
      ELSE
         nOPT:=0
         ALERTNEW([Dados do cliente nao localizados])
         SAIR()
         RETURN NIL
      ENDIF
   ELSE
      nOPT:=0
      ALERTNEW([Pedido nao localizado])
      SAIR()
      RETURN NIL
   ENDIF

   C:=1
   DO WHILE  C <= nVOLU
      IF C = 1
         TXT := [^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ]
         AADD( xTXT, TXT  )
      ENDIF
      TXT:=[^XA]
      AADD( xTXT,  TXT  )
      TXT:=[^PW831]
      AADD( xTXT,  TXT  )
      TXT:=[^LL0799]
      AADD( xTXT,  TXT  )
      TXT:=[^LS0]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,50]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,50^FDHospitalar Com Med Ltda^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,30]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,100^FDR  303^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,140^FDJardim America^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,180^FDCep: 99999-999 - GO - GO^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,220^FDTel: (64) 9999-9999 ^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,250^GB720,1,3^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,25]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,280^FDDestinatario:^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,30]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,330^FD]+ALLTRIM(cRAZ)     +[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,370^FD]+ALLTRIM(cENDERECO)+[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,410^FD]+ALLTRIM(cBAIRRO)  +[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,450^FDCEP: ]+ALLTRIM(cCEP) +[  ]+ALLTRIM(cCIDADE)+[  ]+ALLTRIM(cUF) + [^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,510^GB720,1,3^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,35]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,540^FDNo. NFe: ]+STRZERO(cNNF,9) + [  Valor NFe: R$ ]+STR(xVLRNFe,12,2)+[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,600^FDVolumes: ]+STRZERO(C,4)+[/]+STRZERO(nVOLU,4)+[   No. Pedido: ]+STRZERO(nPEDI,7)+[^FS]
      AADD( xTXT,  TXT  )

      TXT:=[^FO50,650^GB720,100,2^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO60,690]
      AADD( xTXT,  TXT  )

      TXT:=[^FDPor favor atencao: CUIDADO MATERIAL FRAGIL^FS]
      AADD( xTXT,  TXT  )

      TXT:=[^PQ1,0,1,Y^XZ]
      AADD( xTXT,  TXT  )
      C++
   ENDDO
   A:=1
   TXTARQ   := FOPEN( AAA, 2 )
   nTAMANHO := LEN(xTXT)
   DO WHILE A <= nTAMANHO
      WLINHA:= ALLTRIM(xTXT[A])+CHR(13)+CHR(10)
      FSEEK( TXTARQ, 0, 2 )
      FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
      A++
   ENDDO
   FCLOSE(TXTARQ)
   cArquivo:=alltrim(AAA)
   Escolhe_impressora( cArquivo )  //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015
   /*
   cImpressora := GetDefaultPrinter()  // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão
   PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...
   */
   SAIR()
RETURN NIL

[marco.prodata]

Ola,

Essa rotina e bem antiga...

Obrigadaço, o segredo foi o printfileraw, eu estava usando o modo antigo de dar um RUN TYPE ARQUIVO > LPT3.

Funcionou certinho.