Página 1 de 1
codbarra
Enviado: 23 Mar 2007 12:59
por ederxc
Pessoal estou precisando de uma fonte para imprimir codigo de barras na epson e na deskjet ..
Baixei uma fonte deste mesmo site e ñ consigo fazer funcionar !
caso alguem tenha alguma fonte para me disponibilizar eu agradeço de coração faz uma cara que estou correndo atraz disso e ñ consigo ...
Enviado: 23 Mar 2007 16:54
por Toledo
Eder, aqui na seção Download do site tem duas funções para impressão de código de barras, então como você não mencionou qual fonte você copiou e nem qual a dificuldade que você está encontrado com esta fonte, a gente fica sem saber no que pode te ajudar... mas se você entrar novamente na seção Download / Bibliotecas deste site (
www.pctoledo.com.br), procure pelo arquivo de número 015 - ImpBar, descompacte o arquivo e veja as instruções que estão no próprio PRG... só lembrando, esta LIB é para Clipper 5.2.
Abraços,
Enviado: 26 Mar 2007 08:07
por ederxc
Amigo toledo, o que eu baixei foi o cadbar.prg que é o download de numero 39 compilei o exemplo usando o clip.bat que vem junto ao exemplo , mas na hr de axecutar nada acontece o vc poderia me explicar melho como ele funciona ?
Enviado: 26 Mar 2007 10:52
por Toledo
Eder, esta função que você baixou do site é de autoria de outro programador e pelo que andei olhando nos fontes, você terá que chamar a função EXEMPLO(impressora,porta) para que a mesma funcione.
Então para um teste (eu não testei aqui) abra o arquivo EXEMPLO.PRG e coloque o seguinte comando uma linha antes do início da função "function Exemplo( cPrn, cPorta )":
Exemplo([HP],[LPT1])
Faça um teste também com a LIB que passei na minha mensagem anterior.
Abraços,
Enviado: 27 Mar 2007 09:15
por sygecom
ederxc:
E ai amiguinho consegiu desenrola essa bronca ai com os codigo de barra ??
Abraços
Enviado: 27 Mar 2007 13:18
por ederxc
Toledo , gostei muito dessa lib que vc me endicou , mas to com umas dificudades , como nunca trabalhei com arrey e nem muito bem como funciona esse vertor estou com uma dificudade para mudar a ALTURA das barras e a linha a ser impressa, no caso do codigo seria assim
aBarra:={{"11111111111111",2}} no caso no numero 02 seria a coluna a ser impressa as barras e as linhas onde mudo :% ñ estou conseguindo mexer nisso , me descupe pela pergunta sei que deve ser uma coisa simploria , mas começo é começo e eu ainda ñ aprendi
Leonardo, como Vês ainda estou na luta !
Codigo Barra
Enviado: 27 Mar 2007 16:09
por emanuelrdantas
Aproveitando esta discussão sobre codigo de barra, me interessaria bastante e também para outros que freqüentam esse forum que se disponibiliasse um código para impressora térmica, visto que todas que vi disponíveis são para matricial e deskjet.
Agredeço imensamente a todos
Emanuel
Enviado: 27 Mar 2007 19:07
por Toledo
Eder, segue abaixo um exemplo:
Código: Selecionar todos
PRIVATE aBarras:={;
{"7896297806653",1},;
{"1234567890123",20},;
{"7896012202111",40},;
{"7898108911105",60}}
SET PRINTER TO LPT1
SET DEVICE TO PRINT
@ 0,0 say " "
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
@ prow(), 1 say "Desc Produto 1"
@ prow(), 20 say "Desc Produto 2"
@ prow(), 40 say "Desc Produto 3"
@ prow(), 60 say "Desc Produto 4"
@ prow()+1, 1 say "R$ "+trans(10.25,"@E 9,999.99")
@ prow(), 20 say "R$ "+trans(23.50,"@E 9,999.99")
@ prow(), 40 say "R$ "+trans(12.00,"@E 9,999.99")
@ prow(), 60 say "R$ "+trans(1367.90,"@E 9,999.99")
@ 7,0 say " "
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
IMPBARRA(aBarras, 1, 13, 10, 6, 2)
@ prow(), 1 say "Desc Produto 1"
@ prow(), 20 say "Desc Produto 2"
@ prow(), 40 say "Desc Produto 3"
@ prow(), 60 say "Desc Produto 4"
@ prow()+1, 1 say "R$ "+trans(10.25,"@E 9,999.99")
@ prow(), 20 say "R$ "+trans(23.50,"@E 9,999.99")
@ prow(), 40 say "R$ "+trans(12.00,"@E 9,999.99")
@ prow(), 60 say "R$ "+trans(1367.90,"@E 9,999.99")
EJECT
SET DEVICE TO SCREEN
SET PRINTER TO
RETU
Note que antes de imprimir o código de barras eu mandei para a impressora um espaço em branco em uma determinada linha.
Abraços,
Enviado: 27 Mar 2007 22:29
por sygecom
ederxc:
Tche o Toledo colocou mastigado ai pra vc...mas se ainda vc tiver duvida posta ai que nos resolvemos....
emanuelrdantas:
Eu particularmente uso o PRWIN e acredito que ele funcione em qualquer impressora tente usar com a versão demo...
Abraços
Enviado: 28 Mar 2007 08:46
por ederxc
Toledo /Leonardo , Pessoal deu super extra plus advanced certo !
ta muito show mesmo , como vc disse leonardo ta mastigadão !
Vlw hein toledo , tava ja a um tempão atraz disso ...
té++ pessoal