como se utiliza barlib

[pakotel]

tengo un problema al utilizar barlib no se bien la sintaxis alguien me podria decir cual es

[FiveWiDi]

tengo un problema al utilizar barlib no se bien la sintaxis alguien me podria decir cual es

Mira BARCODE.CH, ahí tienes la sintaxis.

Saludos
Carlos G.

[vlmsoft]

Hola Pakotel,

Comando para EAN13 ( extraido del fichero README.ES incluido en BARLIB de Cayetano Gómez )


@ <nRow>, <nCol> EAN13 <cCode> ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
[ OF <oPrint>] ;
[ BANNER ];
[ FONT <cFOnt> ]


@ <nRow>, <nCol> CM_EAN13 <cCode> ;
[ <lVert:VERTICAL> ];
[ COLOR <nColor> ] ;
[ WIDTH <nWidth> ] ;
[ SIZE <nSize> ] ;
[ OF <oPrint>] ;
[ BANNER ];
[ FONT <cFOnt> ]


nRow, nCol : Posicion de impresion del Código de barras
en ean13 son pixels, en c_ean13 son centimetros

cCode : caracteres a imprimir, en el rango '0' a '9'.
han de ser hasta 12 digitos, si se expresan menos se completar n
con '0'. No se ha de incluir el checkdigit, que es calculado por
las rutinas.

oPrint: Objeto Print, objeto sobre el que imprimir

nColor : el color de las Barras.

lOrientación : .t. = horizontal (defecto), .f. = vertical

nWidth := ancho del módulo, es decir , de la barra más fina, en
cent¡metros. por defecto 0,025 cm.

nSize := Longitud de las barras ( ya sea en sentido vertical u
horizontal). Por defecto 1,5 cm.

BANNER : en caso de que se quiera que se imprima el código debajo
del código de barras, debidamente formateado y en su sitio.
Incluso en vertical y del color de las barras

cFont : NOMBRE de la fuente que se usar , por defecto ARIAL, el
tamaño, ancho y alto, de la fuente es calculado en función al temaño
del código de barras y su orientación

Por ejemplo:

Code: Select all  Expand view


#include "FiveWin.ch"
#include "BarLib.ch"

FUNCTION Main()
   LOCAL oPrn

   PRINT oPrn PREVIEW

   oPrn:StartPage()

   @  1, 1 CM_EAN13 "123456789012" OF oPrn
   @ 10, 1 CM_EAN13 "841234512345" OF oPrn COLOR CLR_HBLUE ;
      WIDTH 0.1 SIZE 7.5 BANNER

   oPrn:EndPage()

   ENDPRINT

RETURN NIL

   

Saludos