Yo tuve algo parecido con la impresora Zebra, lo que desdrubri es que con estas impresoras NO ES NECESARIO tener la fuente ya que la impresora trae en memoria ROM la programacion de las fuentes. NO SE COMO SE HACE EN WINDEV PERO FOX LO es:
SET PRINTER TO
SET PRINTER TO NAME ALLTRIM(thisform.textbo1.Value)
can="P"+ALLTRIM(STR((thisform.p1.page1.spiner1.Value/3),10)) && cantidad de etiquetas
*???CHR(10)+"A35,11,0,4,3,3,R,"+M
???CHR(10)+"N" && Limpia Memoria
*---------------------------------------
???CHR(10)+"A23,6,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,1,22)+'"'
???CHR(10)+"A23,21,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,23,22)+'"'
???CHR(10)+"B23,36,0,1,2,1,50,B,"+'"'+ALLTRIM(col4.codigo)+'"'
???CHR(10)+"A23,120,0,2,1,1,N,"+'"'+'PRECIO UN $'+TRANSFORM(col4.precio1,"9,999.99")+'"'
*---------------------------------------
???CHR(10)+"A302,6,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,1,22)+'"'
???CHR(10)+"A302,21,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,23,22)+'"'
???CHR(10)+"B302,36,0,1,2,1,50,B,"+'"'+ALLTRIM(col4.codigo)+'"'
???CHR(10)+"A302,120,0,2,1,1,N,"+'"'+'PRECIO UN $'+TRANSFORM(col4.precio1,"9,999.99")+'"'
*---------------------------------------
???CHR(10)+"A586,6,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,1,22)+'"'
???CHR(10)+"A586,21,0,1,1,1,N,"+'"'+SUBSTR(col4.nombre,23,22)+'"'
???CHR(10)+"B586,36,0,1,2,1,50,B,"+'"'+ALLTRIM(col4.codigo)+'"'
???CHR(10)+"A586,120,0,2,1,1,N,"+'"'+'PRECIO UN $'+TRANSFORM(col4.precio1,"9,999.99")+'"'
*---------------------------------------
???CHR(10)+can && cantidad de etiquetas
???CHR(10)+"N" && Limpia Memoria
SET PRINTER TO
esto para imprimir en linea de tres, revisa el manual explica como es la impresion, rotacion, tipo de codigo, tamaño todo es por codigo y no definiendo un tipo de letra.
espero que esto te pueda ser util
Manuel |