PC Toledo

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...

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

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.

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

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!!!

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.

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

gvcortez@uol.com.br

tks.

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

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

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.)

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...

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

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

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.

wfr123 escreveu:N
A000,300,0,3,2,2,R,"texto de teste"
P1

Experimente trocar o R pelo N, ficando dessa maneira: Veja se resolve.