Gracias por la respuesta pero aun no logro hacer que imprima.
mira lo estoy haciendo de esta manera:
puse esto en un botón
SET PRINTER TO LPT1
DO INITPRINT
SET DEVICE TO PRINTER
?'{B,2,N,1|'
?'1,"Pats"|'
?'2,"Parts"|'
?'3,"3/8 inch Wire"|'
?'4,"3.55/8 Pack"|'
?'5,"345911871209"|}'
Do FINPRINT
y declare estos 2 procedimientos en un prg para iniciar y finalizar la
impresion
*--------------------*
Procedure INITPRINT
*--------------------*
Set Device To Printer
Set Print On
Set Console Off
Return
*--------------------*
Procedure FINPRINT
*-------------------*
Set Print Off
Set Device To Screen
Return
porque crees que esta fallando?
desde ya muchas gracias