Alguien conoce FONT libre para codebar

[Vladimir Zorrilla]

Amigos

Alguien sabe de algun link para descargar una font para codigo de barras que realmente funcione

He bajado varias de internet las pruebo y las lectora no las lee.

En cambio las que imprime la libreria de Cayetano bien que las lee.

El problema esta en que al usar una funcion para imprimirlas por pantalla saca un patron de codigo de barras
distinta a la de Cayetano cosa rara y no la reconoce la lectora.

Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla
Local oBrush, K := 0
Local cdBarras:=_code128(cdBarrasbruto)

//IF EMPTY ( nColor )
nColor := CLR_BLACK && Color negro para rellenar los retangulos
//ENDIF

Default lHorz := .T.
Default nAncho := 02.50/2 && Pixeles de Ancho
Default nAlto := 80.00/2 && Pixeles de Alto

//Define BRUSH oBrush COLOR nColor && Brocha de relleno para cada Barra
//DEFINE BRUSH oBrush COLOR RGB( 0, 0, 0 )
DEFINE BRUSH oBrush COLOR nrgb(0,150,0)
//DEFINE BRUSH oBrush COLOR oDlg:nClrtEXT

//MSGALERT( cdBarras )
//MSGALERT(ltrim(str(LEN ( cdBarras )) ))
//MSGALERT(ltrim(str(__Nx )))
//MSGALERT(ltrim(str(__Ny )))


FOR K := 1 TO LEN ( cdBarras ) && Dibujar retangulos rellenos del color seleccionado

IF SUBSTR ( cdBarras, K, 1 ) = '1' && Es una Barra Negra
//MSGALERT("ES NEGRA")
IF lHorz
FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles
ELSE
FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ) && para Dibujar el código en pantalla
ENDIF
ELSEIF lHorz && es un 0, o un espacio en Blanco := Barras Blancas
__ny += nAncho
ELSE
__nx += nAncho
ENDIF
NEXT K

oBrush:end()
Return nil
* **************************************** ******************** ************************************************* *

Saludos

[FiveWiDi]

Amigos

Alguien sabe de algun link para descargar una font para codigo de barras que realmente funcione

He bajado varias de internet las pruebo y las lectora no las lee.

En cambio las que imprime la libreria de Cayetano bien que las lee.

El problema esta en que al usar una funcion para imprimirlas por pantalla saca un patron de codigo de barras
distinta a la de Cayetano cosa rara y no la reconoce la lectora.

Function DibujarCodebar( cdBarrasbruto, __nx, __ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla
Local oBrush, K := 0
Local cdBarras:=_code128(cdBarrasbruto)

//IF EMPTY ( nColor )
nColor := CLR_BLACK && Color negro para rellenar los retangulos
//ENDIF

Default lHorz := .T.
Default nAncho := 02.50/2 && Pixeles de Ancho
Default nAlto := 80.00/2 && Pixeles de Alto

//Define BRUSH oBrush COLOR nColor && Brocha de relleno para cada Barra
//DEFINE BRUSH oBrush COLOR RGB( 0, 0, 0 )
DEFINE BRUSH oBrush COLOR nrgb(0,150,0)
//DEFINE BRUSH oBrush COLOR oDlg:nClrtEXT

//MSGALERT( cdBarras )
//MSGALERT(ltrim(str(LEN ( cdBarras )) ))
//MSGALERT(ltrim(str(__Nx )))
//MSGALERT(ltrim(str(__Ny )))


FOR K := 1 TO LEN ( cdBarras ) && Dibujar retangulos rellenos del color seleccionado

IF SUBSTR ( cdBarras, K, 1 ) = '1' && Es una Barra Negra
//MSGALERT("ES NEGRA")
IF lHorz
FillRect ( oDlg:GetDC (), { __nx, __ny, __nx + nAlto , ( __ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles
ELSE
FillRect ( oDlg:GetDC (), { __nx, __ny, ( __nx += nAncho ), __ny + nAlto } , oBrush:hBrush ) && para Dibujar el código en pantalla
ENDIF
ELSEIF lHorz && es un 0, o un espacio en Blanco := Barras Blancas
__ny += nAncho
ELSE
__nx += nAncho
ENDIF
NEXT K

oBrush:end()
Return nil
* **************************************** ******************** ************************************************* *

Saludos

Hola,

Es posible que los valores nAncho y nAlto sean centímetros? Son milímetros? Son pixels?

Mírate estas funciones a ver si te pueden ayudar:
viewtopic.php?f=3&t=1789#p95296

Un saludo.
Carlos G.

Nota: Por cierto, he conseguido crear una variante de la Barlib de Cayetano para mostrar códigos de barra por pantalla. En ventanas parece que funciona, he de probarlo en diálogos. Si finalmente lo consigo la subiré a algún lugar para que sea accesible.

[Willi Quintana]

Hi sr.
Ve estos enlaces
http://www.barcodesinc.com/free-barcode-font/
http://www.idautomation.com/fonts/free/#Download_Free_Barcode_Font


salu2