gracias a ambos por sus respuestas, pero despues de haber hecho la pregunta se me ilumino el cerebro y di con la respuesta...


les enseño mi resultado...
***********************************************
este pequeño prg imprime 3 etiquetas pequeñas y se envia directamente a la zebra..
este lo llamo de un fromulario donde le envio los valores..

PARAMETERS CODIGO,TEXTO,COPIAS

SET PRINTER OFF

??? "^XA"
??? "^PRC"
??? "^LH0,0^FS"
??? "^LL200"
??? "^MD0"
??? "^MNY"
??? "^LH0,0^FS"
??? "^BY2,3.0^FO30,8^BUN,80,Y,N,Y^FR^FD"+ALLTRIM(CODIGO)+"^FS"
??? "^BY2,3.0^FO306,6^BUN,80,Y,N,Y^FR^FD"+ALLTRIM(CODIGO)+"^FS"
??? "^BY2,3.0^FO601,8^BUN,80,Y,N,Y^FR^FD"+ALLTRIM(CODIGO)+"^FS"
??? "^FO16,121^A0N,24,21^CI13^FR^FD"+ALLTRIM(TEXTO)+"^FS"
??? "^FO290,123^A0N,24,21^CI13^FR^FD"+ALLTRIM(TEXTO)+"^FS"
??? "^FO585,127^A0N,24,21^CI13^FR^FD"+ALLTRIM(TEXTO)+"^FS"
??? "^CWI,11G80612.FNT^FS"
??? "^FO424,156^AIN,26,0^CI0^FR^FD2.50^FS"
??? "^CWI,11G80612.FNT^FS"
??? "^FO164,154^AIN,26,0^CI0^FR^FD2.50^FS"
??? "^CWI,11G80612.FNT^FS"
??? "^FO739,152^AIN,26,0^CI0^FR^FD2.50^FS"
??? "^PQ"+ALLTRIM(STR(COPIAS))+",0,0,N"
??? "^XZ"
??? "^FX End of job"
??? "^XA"
??? "^IDR:ID*.*"
??? "^XZ"

SET PRINTER TO
****************
gracias de todos modos