Código de Barra en Visual Foxpro

Código de Barra 

En este documento se describe la forma de como imprimir códigos de barra en una impresora Zebra utilizando Visual FoxPro.

Este procedimiento es de los más sencillo y muy practico a lo hora de utilizarlo.En la etiqueta te aparecerá el nombre de tu empresa como tal y el codigo de barra como aparece en la figura de arriba.

Crea un formulario cantidad_copia en donde crearás un campo llamado copia y en el indicarás la cantidad de etiquetas la cual quieres imprimir
en la impresora Zebra.

Do Form cantidad_copia

En el Evento Init de tu formulario crea la variable xcopia

Public xcopia
xcopia=0
thisform.text1.controlsource=xcopìa

En el Evento del Texto en LostFocus coloca el siguiente código :

xempresa="Nombre dela Empresa"

If xcopia>0
Set Print To Name &IMPCODBARRA
Set Devi To Print
xx=""
yy=""
xx='B135,15,0,3C,2,4,60,B,"'+Allt(xbar)+'"'+Chr(10)
yy="P"+Allt(Str(xcopia,3,0))+Chr(10)
??? Chr(10)
??? "N"+Chr(10)
??? xempresa
??? 'A155,2,0,1,1,1,N,"Market Corner"'+Chr(10)
??? xx
??? yy
Set Devi To Screen
Set Print To Name &IMPCODBARRA
Set Devi To Print
Endif

IMPCODBARRA , en este campo deberás colocar el nombre de la impresora de barra como tal.