FoxPro/Visual FoxPro - imprimir tiketes

Me podria facilitar una ejemplo de impresion en codigo?

VIMPRESORA="NOMBRE DE LA IMPRESORA"

SET PRINTER TO NAME &VIMPRESORA

SET PRINT ON
SET CONSOLE OFF

? ""
??? CHR(27)+"PRUEBA DE IMPRESION"
? ""
?? "FINALIZA LA PRUEBA"

SET PRINTER OFF
SET CONSOLE ON
SET PRINTER TO

mira este ejemplo

Wprn = GETPRINTER()
If Empty(Wprn)
MessageBox('Impresion Cancelada!!!',16,'JJ-System')
Return
EndIf
SET PRINTER FONT 'Courier New',12
SET DEVICE TO PRINTER
SET CONSOLE OFF
If M.Matricial ="S"
??? Chr(18)
@Prow(),0 Say Chr(27)+"G"
EndIf
@Prow()+1,00 Say Replicate("-",80)
@Prow()+1,14 Say "Cuenta :"+ALLTRIM(M.Cuenta)
@Prow()+1,14 Say "Detalle :"+ALLTRIM(M.Detalle)
@Prow()+1,14 Say "Grupo 606:"+ALLTRIM(M.Grupo606)
@Prow()+1,14 Say "Status :"+ALLTRIM(M.Status)
@Prow()+1,00 Say Replicate("-",80)

SET PRINTER TO
set Printer Off
SET DEVICE TO SCREEN
SET CONSOLE ON

espero esto te sea util

Que tal.!
ya probé la rutina que escribiste y se comporta muy parecido al que yo usaba cuando programaba en DOS. Es decir, la impresion se envia a la impresora, pero en la impresora no aparece nada.
Tratare de empaparme mas a fondo con los reportes, haber si logro dominarlos, ya que desde los reportes funciona muy bien. Se envia a la impresora y los imprime en seguida. Ademas hay otras ventajas de diseño.
Pero mil gracias por apoyarme constantemente........Lo de la paga lo cambiamos por un Almuerzo, esta bien? :)

Que tal.!
ya probé la rutina que escribiste y se comporta muy parecido al que yo usaba cuando programaba en DOS. Es decir, la impresion se envia a la impresora, pero en la impresora no aparece nada.
Tratare de empaparme mas a fondo con los reportes, haber si logro dominarlos, ya que desde los reportes funciona muy bien. Se envia a la impresora y los imprime en seguida. Ademas hay otras ventajas de diseño.
Pero mil gracias por apoyarme constantemente........Lo de la paga lo cambiamos por un Almuerzo, esta bien? :)

k impresora estas usando
eso seria bueno saber

y sabes ahora es k estoy pasando mi sistema a formulario pero mis programas lo migre de dos a vfp y tendo funciones y procedimientos iguales por mas de 10 anos
todo esta programado asi

Saludos mi amigo Jose.
Aun no tengo la impresora de tiquetes. La impresora que esta conectada es una multifuncion Samsung 4200. Pero la proxima semana lo voy a comprar (sera una termica con corte de papel) .....Pero creo que solo se diferenciaria con respecto al tamaño del papel y si es papel en rollo o por hojas......Con respecto a activar la impresora, creo que debe ser igual......o no?.....