Imprimir logotipo Argox PPLB

clipsis · Mensagem por **clipsis** » 13 Set 2012 16:01

Olá, bom dia a todos!

Procurei aqui no forum, sobre o assunto, encontrei alguns sobre etiqueta na impressora Argox. Porém nenhuma sobre imprimir imagem na linguagem PPLB.

Alguém faz ou já fez isso ?
Qual maneira mais correta de envio de uma imagem (logotipo)? (linguagem PPLB)
Em qual formato deve ser essa imagem?
Existe alguma limitação quanto a tamanho do arquivo?

Fico no aguardo

Abraços

Mensagem por **Jairo Maia** » 13 Set 2012 23:29

Olá clipsis,

clipsis escreveu:Alguém faz ou já fez isso ?

Eu não. Mas estudei essa questão há alguns anos atrás.

Tenho com certeza os manuais de programação para essa impressora, tanto em PPLA como em PPLB (não estão a mão neste momento), se você se interessar, posso anexar aqui. Sei que neles tem inclusive as informações para impressão de imagem gráfica.

clipsis escreveu:Existe alguma limitação quanto a tamanho do arquivo?

Pois é. Como você está postando no fórum de Clipper, creio que o limite para carregar um arquivo será de 64K, que é o limite do Clipper.

Apenas não sei se há algo novo, pois me lembro desse assunto quando em 2003 ou 2004 eu estava tentando aprender Delphi, linguagem com a qual não me adaptei, e esses manuais são dessa época, porém, se interessar envio.

Imatech · Mensagem por **Imatech** » 14 Set 2012 10:37

Olá !

Uma simples consulta no Google e encontra até + que o necessário...

Downloads:

Print Utility (1.8MB)
http://www.okey.com.br/catalogos/Print%20Utility.exe

Manual Programação(450K)
http://www.okey.com.br/catalogos/basic% ... manual.pdf

Manual PPLA (3.4MB)
http://www.okey.com.br/catalogos/PPLA.pdf
http://www.microwaresistemas.com.br/suporte/PPLA.pdf

Manual PPLZ (3.6MB)
http://www.okey.com.br/catalogos/PPLZ.pdf

Manual PPLA/PPLB (3.8)
http://www.okey.com.br/catalogos/PPLA&PPLB.pdf

type ppla.txt > lpt2

PPLA.txt:

Código: Selecionar todos

n
L
H11
D11
491100300100027DESCRICAO
Q1
J
E
f330

Mensagem por **fladimir** » 15 Set 2012 00:25

Complementando, caso vc queira trabalhar em PPLA (impressão direta via porta sem passar pelo driver do Windows) e sua impressora for PPLB vc usa um utilitário q encontra fácil na internet (eu já usei) e transforma ela de PPLB para PPLA.

[]´s

clipsis · Mensagem por **clipsis** » 17 Set 2012 10:53

Olá e bom dia a todos !

Oi,Imatech . Obrigado pela atenção, mas esses manual eu já havia encontrado. Eles apresentam os comandos para linguagem PPLB. Entendi e já implementei.
O que não estou conseguindo fazer é exatamente enviar a imagem para impressora e depois imprimi-la

No exemplo:

Código: Selecionar todos

1 - GK "PCXA"  //apaga a imagem da memoria
2 - GM PCXA"" 3858 // cria uma novo espaco para imagem
3 - ...[PCX file for PCXA graphics]... //aqui é a imagem propriamente dita 
4 - N
5 - A30,30,0,4,1,1,R,"PCXA..." 
6 - GG30,100,"PCXA" // aqui se imprime a imagem

O item 3 é que é o problema, como enviar a imagem (o arquivo) para impressora.
Como consigo fazer isso em Clipper ou até em Harbour se for possível.

Fladimir, sei também dessa possibilidade, mas todas as etiquetas do programa estão em PPLB, e já tentaram fazer essa mudanças de linguagem na impressora (PPLB -> PPLA) e acabaram perdendo a impressora, houve algum problema no processo que acabou por inutilizar a impressora.

Se alguém pude me ajudar agradeço, mesmo se tiver que converter o progama para Harbour.

Abraços

leandrolinauer · Mensagem por **leandrolinauer** » 18 Jul 2013 17:10

Boa tarde.
Estou implantando a impressão na datamax allegro flex e precisava de uma ajuda de como enviar o arquivo ou memoria criada com o conteudo da etiqueta para a impressora na porta USB, não estou usando a lpt1.

Grato

Mensagem por **fladimir** » 18 Jul 2013 19:05

Eu faço assim, deixo a impressora como PADRÃO no Windows (poderia fazer procurar na lista de impressora etc e tal, mas na época fiz assim e foi embora, mais pra frente se precisar mudar mudamos, mas o colega já pega a dica) e depois jogo nela.... veja abaixo

Código: Selecionar todos

	
   cArquivo := "Argox.TXT"    
   SET PRINTER TO &(cArquivo)    // redireciono para 1 arquivo 

   // ... comandos de acordo com o layout 

   // ... no final eu faço assim:

   cImpressora := GetDefaultPrinter()  // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão 
   PrintFileRaw(cImpressora, cArquivo) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...

[]´s

leandrolinauer · Mensagem por **leandrolinauer** » 19 Jul 2013 15:49

Boa tarde fladimir.

Eu não havia testado a função PrintFileRaw(), vou tentar com ela para ver se da certo, mas vou continuar com a opção de mostrar todas as impressoras na tela, e o usuário vai selecionar a DATAMAX e mandar, caso ele selecione errado, só vai imprimir o conteudo na impressora errada, mas blz, melhor que falar para o usuário mudar a impressora padrão dele para outra na hora de enviar etiqueta.

Mais pra frente vou fazer um cadastramento de impressoras no sistema, puxando automaticamente do computador e nomeando qual é qual e para que servem, assim poderei bloquear impressões errada,evitando enviar dados inválidos para a datamax, mas por enquanto vou apenas bloquear pelo nome.

Grato
Testarei e posto a solução inteira.

Mensagem por **fladimir** » 19 Jul 2013 16:15

Isso mesmo... blz Leandro, ficamos no aguardo então pra saber se ficou ok...

[]´s

lucimauro · Mensagem por **lucimauro** » 20 Jul 2013 22:23

Faço como o flademir falou acima,e funciona muito tempo com o printfilerow.

Agora com relacao a imprimir a imagem,ja li mais tambem nao consegui imprimir,sei que se carrega a imagem na memoria da maquina com o utilitario da argox depois faz so ler o endereco do arquivo no memoria da impressao acho que é assim.!

Mensagem por **fladimir** » 21 Jul 2013 13:13

Sobre imprimir a Imagem na Argox nunca tentei, mas pelo que li no manual tem q carregar na memória o arquivo da imagem e depois redirecionar via comando... isso na PPLA, como o Clipsis disse acima aki é sobre PPLB talvez seja diferente, eu já postei no fórum como mudar a Argox de PPLB para PPLA caso alguém queira.

Aqui tem um tópico aki do fórum q reabri, para quem usa PPLA e quiser testar a impressão direta de imagem.

[]´s

leandrolinauer · Mensagem por **leandrolinauer** » 03 Ago 2013 11:11

Bom dia a todos.
Como eu havia falado assim que tivesse tudo funcionando postaria a solução aqui.

Código: Selecionar todos


Static Function oEtiqGondola() //gondolas
Local i_Imp:=""
Private xEt:=0
cEtiqFile:=wD_Retorno+"GONDOLA.TXT" //wD_Retorno+
MyPrinters()
i_Imp:=If(("DATAMAX" $ Upper(cPrinter)),"DATAMAX","LASER")

If LastKey()#27 .And. NewAnsWer("Confirma a impressão das etiquetas na "+cPrinter+"?")  
	If i_Imp == "DATAMAX" //$ Upper(cPrinter)) 
	   oEtiqGDatamax()
   Else
	   oEtiqGLaser()
   EndIf
   If xEt=0
      ShowMessage(,,"Não há produtos com código de barras para impressão de etiquetas de gôndolas.",0)
   EndIf
EndIf
Return .T.


Static Procedure oEtiqGDatamax()
	
   oSTX:= chr(2)
   oCR := chr(13) 

   oHandle:= FCreate(cEtiqFile)
   
   While !Eof()
     While !Eof().And.TICADO#">" //vai at‚ o final para localizar mais etiquetas
       DbSkip(1)
     End
     FWrite(oHandle, oSTX + "e"     + oCR ) //habilita o sensor gap
     FWrite(oHandle, oSTX + "m"     + oCR ) //unidade em milimitro
     FWrite(oHandle, oSTX + "M0300" + oCR ) //fixa o comprimento em 30mm
           
     FWrite(oHandle, oSTX + "L"     + oCR ) //entra em modo formato etiqueta
     FWrite(oHandle, "H20"          + oCR ) //fixa temperatura vai de: H10 a H20 recomendavel H16
     FWrite(oHandle, "D11"          + oCR ) //PADRAO PARA PIXEL

     If !Eof() //nao for fim do arquivo entra
		  If !Empty(COD_BARRA) 
		     xEt++
           wDescPP:=AllTrim(NewAlinha(DESCRICAO,22)) //primeira parte da descricao
           wDescPR:=AllTrim(    Resto(DESCRICAO,22)) //restante da descricao

           FWrite(oHandle, "190000100050330"   + AllTrim(Left(wE_EMail,35))+"  "+TransForm(wE_Fone,"@R (999)9999-9999") + oCR ) // ultima linha
           FWrite(oHandle, "190000200300490"   + COD_FORN + "  " +TransForm(SETOR1,"@R 9-999")+ "  " + COD_MERC + oCR )
			  FWrite(oHandle, "190000500700760"   + UNIDADE  + oCR ) 
			  If Len(Alltrim(COD_BARRA))=8//ean8
			     FWrite(oHandle, "1G0008000300050"   + Left(COD_BARRA,7) + oCR )
			  Else //ean13
			     FWrite(oHandle, "1F0008000300050"   + Left(COD_BARRA,12) + oCR )
           EndIf
           FWrite(oHandle, "190000601300050"   + wDescPR + oCR ) //
           FWrite(oHandle, "190000601900050"   + wDescPP + oCR ) //
           FWrite(oHandle, "E"      + oCR ) //envia para a impressora
           
		  EndIf
		  DbSkip(1)

     EndIf
     
   End
   FWrite(oHandle, oSTX + "G"     + oCR ) //imprime etiqueta armazenada
   FClose(oHandle) //fecha o arquivo

   If xEt > 0 //se tiver etiqueta manda imprimir
   
      oPrinter:=Win_prn()
      oPrinter:New(cPrinter) //pega a escolhida
      oPrinter:Create() 
      oPrinter:StartDoc() 
      Win_PrintFileRaw(cPrinter,cEtiqFile,"")
         
      oPrinter:EndDoc()
		oPrinter:Destroy()
   EndIf
   
   FErase(cEtiqFile)

Return

Bom, fiz desta forma acima e consegui funcionar perfeitamente, se alguem tiver alguma forma de melhorar, posta a solução, grato a todos, quanto a imagem não coloquei nada e não fiz teste tbem mas pretendo fazer mais pra frente.

Um abraço a todos.
Grato pela ajuda recebida.
:xau