ZEBRA TLP 2488 termica

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
juniorcamilo
Usuário Nível 3
Usuário Nível 3
Mensagens: 343
Registrado em: 10 Nov 2006 09:12
Localização: Pará

ZEBRA TLP 2488 termica

Mensagem por juniorcamilo »

amigos do forum um cliente meu comprou um impressora zebra tlp 2844 para que possamos imprimir o nome do produto e preço para colocar em gondulas no supermercado, a impressora nao quer imprimir pelo programa alguem tem alguma solucao, detalhes ela esta instalada na LPT1, e imprime pelo Windows, ja testei o prwin do nosso amigo vagucs e nao funcionou , ela recebe o documento em spool mas nao imprime...
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: ZEBRA TLP 2488 termica

Mensagem por Maligno »

Quando você diz que imprime pelo Windows você quer dizer que imprime pelo programa de teste/demo da fábrica?
Se ela está conectada à LPT1, você poderia imprimir diretamente pelo seu programa Clipper? Ou ela é "for Windows only"?
Se pelo programa PRWin ou outro qualquer você consegue enviar seus dados para o spooler do Windows mas a impressora não dá sinal de vida, imagino que possa estar faltando algum comando de controle ou até mesmo você possa estar enviando comandos errados. Experiência própria: estou montando um conjunto de funções para impressão em PCL. Nada dava certo. Não imprimia. Até que eu descobri que o manual da própria HP estava com códigos errados. Portanto, é bom conferir isso. Imagino que você deve ter o manual com todos os códigos de controle.

[]'s
Maligno
http://www.buzinello.com/prg
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

A zebra usa a linguagem ZPL.

Algumas delas aceitam impressão do windows, mas vc deve capturar a porta que ela esta ligada ou se for compartilhada, deve atribuir uma LPT para a impressora.

Em modo ZPL, vc pode programar em clipper, mas passar os comando para ela, montando toda a etiqueta.
Veja com seu fornecedor se ela aceita impressão windows e se tem o programa que monta etiquetas.
Após montar a etiqueta, mande imprimir em ZPL, mas em arquivo texto.
Pegue o arquivo e transfira os comandos para dentro do seu sistema.
Então use:
set print on
? "comandos ZPL"
...
set print off

Boa sorte.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Avatar do usuário
filizola
Usuário Nível 3
Usuário Nível 3
Mensagens: 421
Registrado em: 19 Ago 2003 20:10
Localização: Belo Horizonte/MG

o principio é este

Mensagem por filizola »

O CD DE INSTALACAO TEM O HELP COM TODOS OS COMANDOS.


set devi to print
set printer to temp.txt

?'^XA' -> inicia o arquivo
?'^FO50,50' -> posiciona na linha e coluna da etiqueta (em pixel)
?'^ADN60,50' -> tamanho da fonte
?'^FDMeu primeiro campo arquivo ou variavel' -> campo a ser impresso
?'^FS' -> fim de campo a ser impresso
?'^FO50,50' -> posiciono numa nova linha e coluna
?'^FDMeu segundo campo' -> segundo campo
?'^FS' -> fim segundo campo
?'^PQ1' -> onde 1= numero de copias da etiqueta
?'^XZ' -> fim de impressao

set printer to
set devi to screen
!type temp.txt >lpt1
"Um passo a frente, e já não estará mais no mesmo lugar..."
Avatar do usuário
juniorcamilo
Usuário Nível 3
Usuário Nível 3
Mensagens: 343
Registrado em: 10 Nov 2006 09:12
Localização: Pará

Re: o principio é este

Mensagem por juniorcamilo »

filizola escreveu:O CD DE INSTALACAO TEM O HELP COM TODOS OS COMANDOS.


set devi to print
set printer to temp.txt

?'^XA' -> inicia o arquivo
?'^FO50,50' -> posiciona na linha e coluna da etiqueta (em pixel)
?'^ADN60,50' -> tamanho da fonte
?'^FDMeu primeiro campo arquivo ou variavel' -> campo a ser impresso
?'^FS' -> fim de campo a ser impresso
?'^FO50,50' -> posiciono numa nova linha e coluna
?'^FDMeu segundo campo' -> segundo campo
?'^FS' -> fim segundo campo
?'^PQ1' -> onde 1= numero de copias da etiqueta
?'^XZ' -> fim de impressao

set printer to
set devi to screen
!type temp.txt >lpt1

amigo filisola tentei exatamente o q vc sugeriu, mas nao funcionou, mas o caminho é este mesmo!!!
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

Se voce instalou algum driver desta impressora na maquina verifique em suas propriedades algom sobre IMPRESSAO POR SPOOL e selecione a opção de IMPRIMIR DIRETAMENTE NA PORTA.

Crie o arquivo texto pelo DOS e de os comandos:

TYPE arquivo.txt > LPT1
COPY /B arquivo.txt LPT1
NOTEPAD /P arquivo.txt

Se funcionar a impressora esa ok, senão tem algum problema, na impressora, no cabo ou nos comandos.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Se vc tiver o help no cd, poderia mandar-me uma cópia?

gvcortez@uol.com.br

tks.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Avatar do usuário
Poka
Usuário Nível 4
Usuário Nível 4
Mensagens: 563
Registrado em: 25 Out 2004 21:26
Localização: Leme/SP

Mensagem por Poka »

Olá

Experimente também esses comandos.


vENTER=CHR(13)+CHR(10) // o enter deve estar no final de cada liha
qtd=str(10,3))
nomeprod:="azeitonas verdes raiolita"
obs:="observacao qualquer"
codbar:="7896237900021"
//
// ativa a impressora
//

@ prow(),Pcol() say Venter
@ prow(),Pcol() say 'D11' + venter
@ prow(),Pcol() say 'N' + venter
@ prow(),pcol() say 'JF' + venter
@ prow(),Pcol() say 'q416' + venter
@ prow(),Pcol() say 'Q240,30' + venter
@ prow(),Pcol() say 'R0,2' + venter

@ prow(),Pcol() say 'A250,10,0,1,1,2,N,"' + nomeprod + '"' + venter
@ prow(),Pcol() say 'A250,90,0,1,1,2,N,"' + obs + '"' + venter
@ prow(),Pcol() say 'B250,120,0,E30,3,4,70,B,"' + codbar + '"' + venter
@ prow(),Pcol() say 'P' + qtd + venter
@ prow(),pcol() say 'JF' + venter

//
// desativa a impressora
//


Um abraço

Poka
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

O caminho é esse que o colega Poka postou, a impressora funciona perfeitamente com clipper, não é necessária nenhuma mudança ou envio de comando que não seja pelo próprio clipper.

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Avatar do usuário
juniorcamilo
Usuário Nível 3
Usuário Nível 3
Mensagens: 343
Registrado em: 10 Nov 2006 09:12
Localização: Pará

Obrigado a Todos vai ai o que eu desenvolvi.

Mensagem por juniorcamilo »

Obrigado a Todos vai ai o que eu desenvolvi.
..........
npre := 'Qual o preço?'
x_Nomlst := 'nome da empres'
if testa_impressora() = "0";loop;endif
mensagem("Aguarde, Imprimindo ...")
......... procura o item
Imprimir(.t.) && IMPRIMIR NA lpt1
? chr(13)+chr(10)
? 'D11'+chr(13)+chr(10)
? 'N'+chr(13)+chr(10)
? 'JF'+chr(13)+chr(10)
? 'q800'+chr(13)+chr(10)
? 'Q240,10'+chr(13)+chr(10)
? 'A10,5,0,1,1,1,N,"'+x_Nomlst+'"'+chr(13)+chr(10)
? 'A10,20,0,1,2,6,N,"'+substr(PRO->DESEST,1,39)+'"'+chr(13)+chr(10)
? 'A225,85,0,2,3,8,N,"* R$ '+substr(trans(nPre,"@E 9999,999.99"),1,8)+'"'+chr(13)+chr(10)
? 'A695,85,0,1,2,8,N,"'+substr(trans(nPre,"@E 9999,999.99"),9)+'"'+chr(13)+chr(10)
? 'A760,85,0,2,3,8,N,"*"'+chr(13)+chr(10)
? 'P1'
? 'JF'
imprimir(.f.)
Avatar do usuário
juniorcamilo
Usuário Nível 3
Usuário Nível 3
Mensagens: 343
Registrado em: 10 Nov 2006 09:12
Localização: Pará

Mensagem por juniorcamilo »

gvc escreveu:Se vc tiver o help no cd, poderia mandar-me uma cópia?

gvcortez@uol.com.br

tks.

eu zipei os arq. e nao estou conseguindo mandar para vc...
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Só para complementar.

As impressoras Zebra modelo TLP e LP são fabricadas pela ELTRON que foi comprada pela ZEBRA, os comandos são idênticos entre estes modelos, sendo assim qualquer impressora TLP e LP funcionam com os mesmos comandos.

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
wfr123
Usuário Nível 1
Usuário Nível 1
Mensagens: 20
Registrado em: 23 Nov 2009 10:56
Localização: goiania-GO

Re: ZEBRA TLP 2488 termica

Mensagem por wfr123 »

ola a todos, desculpe reviver este topico, mas nao gostaria de criar outro,
Estou com o problema que gero o arquivo para mandar para a LPT1 mas a impressora nao começa imprimir da esquerda para a direita e sim da direita para a esquerda e ainda as letras ficam de cabeça para baixo.

veja abaixo como sai na etiqueta, o quadro é como se fosse a etiqueta:
+------------------------------------+
| |
| |
| |
| etset ed otxet | "texto de teste" Mas lembrando que sai tudo de cabeça para baixo ou seja invertido
+------------------------------------+
agradeço qualquer ajuda.
programa que envio para a impressora zebra tlp-2844 e envio para a impressora como: type texto.prn >lpt1

N
A000,300,0,3,2,2,R,"texto de teste"
P1
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Re: ZEBRA TLP 2488 termica

Mensagem por alaminojunior »

Então meu caro, essa Zebra eu nunca trabalhei, mas existem comandos para impressão espelhada. Verifique se este comando existe para esta versão.
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
SandroBelarmino
Usuário Nível 3
Usuário Nível 3
Mensagens: 464
Registrado em: 04 Set 2007 16:11
Localização: Pedreira-SP

Re: ZEBRA TLP 2488 termica

Mensagem por SandroBelarmino »

wfr123 escreveu:N
A000,300,0,3,2,2,R,"texto de teste"
P1
Experimente trocar o R pelo N, ficando dessa maneira:

Código: Selecionar todos

N
A000,300,0,3,2,2,N,"texto de teste"
P1
Veja se resolve.
Alessandro R Belarmino
Clipper 5.2e - Blinker 7 - DBFNTX / DBFCDX
"Quem trabalha muito erra muito, quem trabalha pouco erra pouco, quem não trabalha não erra e quem não erra é promovido !!!!"
Responder