Hola Amigos,
Necesito una luz, para poder imprimir un codigo de barras en una impresion , alguno de ustedes ha trabajado este tema?

_________________
Saludos.
German

Hola.

No he trabajado aun, pero lo tengo 'en cartera'.

Yo empezaría por buscar una FONT de codigo de barras (creo que yo tengo algo, pero tendría que buscarlo).

Con esta FONT puedes iniciar el camino......

_________________
Un saludo.
Jesús P. Melgar Velasco

Hola German
Como bien te ha comentado Jesus tienes que buscar una fuente, yo utilizo la BAR3OF9.TTF (Bar Code 3 of 9), no te la puedo pasar porque es de pago, si buscas por internet la podras localizar, despues la copias en la carpeta ..\font para imprimir usa este codigo:
Printer:Font:Name := "Bar Code - 3 of 9"
Printer:Font:Size := 28
Printer:DrawText( "*"+STRZERO(buscodigo, 6)+"*", { 110, 235, 140, 246 }, TA_LEFT )

Espero te sirva

Un saludo

Gracias,
Me ha sido de mucha utilidad tu comentario,
He encontrado una font en la web, pero solo funciona con XP, con vista no se deja instalar, la que tu usas funciona con vista?, si es asi me podrias regalar la direccion paar buscarla, gracias

_________________
Saludos.
German

Hola German
Utilizo la font bar3of9 porque como ves es muy sencilla, pero me da algun problema con las pistolas USB, se come digitos aleatoriamente, tengo que validar que lea todos los digitos, si el codigo de barras tiene 6 posiciones compruebo que la pistola ha leido efectivamente 6 sino es error. Como mejor solucion estoy probando con la font Code128 con digito de control.

Las fuentes son independientes del sistema operativo, con XP coges el fichero con la fuente lo pegas en windows\fonts y ya funciona, con vista tienes que situarte en la carpeta windows\fonts pulsar el boton izquierdo del raton y seleccionar Instalar fuente, te pedirá el fichero y punto.

Un saludo