FoxPro/Visual FoxPro - Imprimir Codigos de barra en VFP7.0

Buenas tardes,
Mi consulta es la sgte.: como puedo pasar mis codigos de productos contenidos en una tabla 'PRODUCTOS' en su equivalente en codigo barra por ejemplo tengo el sgte codigo alfanumerico '91-01-C5-51D' el cual quiero expresar en su equivalente en codigo de barras y por supuesto imprimirlo, tengo un impresora ZEBRA TLP 2844, pero el software que tiene no me ayuda mucho, puesto que debo estirar el codigo de mi producto de la tabla arriba mencionada.
Si pudieran ayudarme o guiarme de alguna manera les estar muy agradecido.

Gustavo M.

Prueba este codigo solo cambia las variables necesarias
te aclaro que este lo utilizo para imprimir etiquetas para joyeria por lo cual debes de checar el tamaño del codigo.

*********************************************
* Grupo ALPA S.A. DE C.V. *
* Archivo : CBZEB.FOR *
* Purpose : Print Bar Codes (TLP 2844) *
* Made it by : E.N.H.A. *
* Date : 15/06/2005 *
* Time : 08:20 *
* Last Modi : 17/06/2005 13:20 *
*********************************************

W_OPC="2"

SET CONSOLE OFF
SET ALTERNATE TO REPORTE.TXT
SET ALTERNATE ON

IF W_OPC="2"
FOR A=1 TO W_CAN
Z_PESO=STR(W_PESO,6,W_DEC)
Z_POSDIV=LEN(ALLTRIM(CPT.A_CLAVE))-3
Z_CLAVEART= '"' + ALLTRIM(CPT.A_CLAVE) + ' ' + ALLTRIM(Z_PESO) +'"'
Z_CLAVEALONE='"' + ALLTRIM(CPT.A_DESCR)+'"'
Z_CLAVE= CPT.A_CLAVE
Z_PESOART='"'+STR(W_PESO,6,W_DEC)+'"'
Z_CODIGO='"'+ALLTRIM(Z_CLAVE)+'$M'+ALLTRIM(Z_PESO)+'"'
?'N'
?'O'
?'D13'
?'S2'
* ?'Q975,8'
* ? 'B180,80,2,3,1,2,50,N'+","+Z_CODIGO && CodeBar
? 'A180,40,0,1,1,1,N'+","+Z_CLAVEALONE && ItemWeight
* ? 'A80,100,0,1,1,1,N,"JOYAS BLANCA "' &&
* ? 'GM"ALPA5.PCX"2818' && LoadImage
? 'GG,230,10,"ALPA5.PCX"' && PrintImage
? 'A220,20,2,1,1,1,N'+","+ALLTRIM(Z_CLAVEART) && ItemKey Inverted
* ? 'A80,80,0,1,1,1,N,"Reloj CITIZEN 7501138301173 "' &&
* ? 'GG180,80"ALPA3"' && PrintImage
* ? 'A150,10,2,1,1,1,N'+","+ALLTRIM(Z_CLAVEART) && ItemKey Inverted
? 'P'+ALLTRIM(STR(w_can))
?

ENDFOR


SET CONSOLE ON
SET PRINTER OFF
SET ALTERNATE TO
SET ALTERNATE OFF
SET PRINTER TO
!COPY REPORTE.TXT LPT1

ENDIF

Suerte

tienes una solucion mas sencilla, instalas el font 39 (codigo de barras internacional 3 de 9) en el windows / fonts y lo usas como cualquier font para impresion y para cualquier tipo de impresora, este font biene con un programa en access para imprimir codigo de barras, pero lo puedes usar independientemente para word, excel, fox, etc.

el resultado es que tu envias tu codigo a imprimir, pero el font lo cambia a barras.

Santiago