Página 2 de 2

Re: impressao de cod de barras

Enviado: 25 Set 2009 17:04
por billy1943
O melhor programa que conheci para impressão de etiquetas com código de barras é o Label Magic, que através de arquivos .CSV, gera as etiquetas em folhas Pimaco, inclusive iniciando na primeira etiqueta a destacar, não importando seu tamanho, fonte, formato (EAN8,EAN10,EAN13,etc).
Super fácil de trabalhar.

Re: impressao de cod de barras

Enviado: 25 Set 2009 22:13
por fladimir
O colega tem tal programa, pois só achei trial....

é isso mesmo ?

Grato e Sucesso!!!

:)Pos

Re: impressao de cod de barras

Enviado: 28 Out 2009 10:42
por acelconsultoria
Olá, pessoal...

Eu tentei várias libs e sempre esbarrei com configurações de impressoras e diversos formulários.

Utilizo o software Presillo há 2 anos, e basta configurá-lo uma vez (Modelo de Etiqueta), ajustar o lay-out desejado e pronto. Pelos arquivos CSV gerados pelo sistema, o usuário apenas manda "Mesclar Dados" e envia para impressão.

Re: impressao de cod de barras

Enviado: 28 Out 2009 10:56
por acelconsultoria
Para gerar o arquivo, utilizo uma rotina bem simples:

Código: Selecionar todos


FUNCTION GERA_CODBAR()
MENSAGEM(" Aguarde... gerando arquivo BARRAS.CSV")
USE LBLTMP NEW // Arquivo DBF temporário que já possui as etiquetas a serem impressas.
SET CONSOLE OFF
SET DEVICE TO PRINT
SET PRINTER TO "BARRAS.CSV"
SETPRC(0,0)
DBGOTOP()
@ LL,CC SAY "CODIGO;DESCRICAO;PRECOS"
LL++
DO WHILE !EOF()
   IF CODIGO = 0 ; SKIP ; LOOP ; ENDIF
   @ LL,CC SAY STRZERO(LBLTMP->CODIGO,7) + ";"
   @ LL,PCOL() SAY SUBS(LBLTMP->DESCRICAO,1,30) + ";"
   @ LL,PCOL() SAY "R$ " + ALLTRIM(TRANSFORM(LBLTMP->PRECO,"@E 999,999.99"))
   LL++
   SKIP
ENDDO
LL++
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINTER TO
SELE LBLTMP
ZAP
DBCLOSEALL()
RETURN 



O arquivo gerado vai possuir um formato assim:

Código: Selecionar todos

CODIGO;DESCRICAO;PRECOS
0002270;FITA ORGANZA CORRUGADA VERMELH;R$ 47,30
0002271;PINGENTE NATAL GLIT.BOLA PRATA;R$ 33,55
0002271;PINGENTE NATAL GLIT.BOLA PRATA;R$ 33,55
0002271;PINGENTE NATAL GLIT.BOLA PRATA;R$ 33,55
0002272;PING.NATAL GLIT.ESTRELA REND.C;R$ 27,95
0002272;PING.NATAL GLIT.ESTRELA REND.C;R$ 27,95
0002272;PING.NATAL GLIT.ESTRELA REND.C;R$ 27,95
0002273;PING.NATAL GLITER ESTRELA OURO;R$ 34,95
0002273;PING.NATAL GLITER ESTRELA OURO;R$ 34,95
0002273;PING.NATAL GLITER ESTRELA OURO;R$ 34,95

Com isso e seguindo o tutoria do Presillo, não tem erro. Super simples e rápido.

Abraços.