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
#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