Visual B.- codigo de barra

fdme · #1 (**permalink**) 05/03/2008, 07:47

Estimados señores

gracias por la opurtunidad. y quiero moletar con lo siguiente.

Necesito hacer un programa que emita codigos de barra en VB, y se que hay que darles algunos codigos de control de la printer ( datama e4203) y NO SE COMO y cuales codigos.

Si me pueden ayudar, agradecido

David
[email protected]

Kruzado · #2 (**permalink**) 05/03/2008, 08:45

por lo general cada impresora viene con font especiales para imprimir codigos de barra, entonces busca tu manual y revisalo, sino, bajalo desde internet y si tampoco lo tienes pruea con esto :

http://www.forosdelweb.com/807087-post24.html

esta en las faq's.... siempre es bueno leerlas

fede_rosario · #3 (**permalink**) 05/03/2008, 10:40

observa este ejemplo en esta dire
http://lawebdelprogramador.com/codigo/buscar.php?id=93&texto=Visual%2BBasic&cadena=codig o+de+barra&x=37&y=8

ideasking · #4 (**permalink**) 05/03/2008, 20:58

Por lo general esa impresora imprime codigos standar, utiliza esta estructura que yo utilizo en una Zebra y me funciona bien:

Creo que esa impresora imprime codigos de barras estandar, yo utilizo este tipo de codificación para una impresora zebra y me funciona bien:

Open "c:\Barcode.txt" For Output As 1

item1 = "^XA" 'Esto es texto
item2 = "^FO060,050^ABN,50,30^FD" & Text1.Text & "^FS" ' Esta línea imprime el texto legible de lo que lleva el codigo de barras
item3 = "^FO060,050^BCN,110^FD" & Text1.Text & "^FS" ' Esta línea es la que genera el código de barras
item4 = "^FO060,300^ABN,50,30^FD" & Text3.Text & "^FS"
item5 = "^FO060,300^BCN,110^FD" & Text3.Text & "^FS"
item6 = "^FO060,550^ABN,50,30^FD" & Text5.Text & "^FS"
item7 = "^FO060,550^BCN,110^FD" & Text5.Text & "^FS"
item8 = "^FO550,050^ABN,50,30^FD" & Text2.Text & "^FS"
item9 = "^FO550,050^BCN,110^FD" & Text2.Text & "^FS"
item10 = "^FO550,300^ABN,50,30^FD" & Text4.Text & "^FS"
item11 = "^FO550,300^BCN,110^FD" & Text4.Text & "^FS"
item12 = "^FO550,550^ABN,50,30^FD" & Text6.Text & "^FS"
item13 = "^FO550,550^BCN,110^FD" & Text6.Text & "^FS"
item14 = "^XZ"

Write #1, item1, item2, item3, item4, item5, item6, item7, item8, item9, item10, item11, item12, item13, item14

Close #1

Lo que esta en rojo es son los text de tu formulario lo demás lo escribes como texto que es parte de la codificacion que interpreta la impresora y consiste en las coordenadas, el tipo de letra, el tamaño, etc y lo guarda en un archivo de texto para luego abrirlo y mediante el procedimiento de impresion lo envias a la impresora.

En este ejemplo pues hay bastantes líneas, porque es mi programa pero la idea es que dependiendo de lo que necesites pues lo modificas. Intenta a ver quizas te sirva.