Imprimir con matriziales en visual fox pro

Acá te paso un ejemplo para utilizar en muchos tipos de impresiones, recordá que es importante que tengas instalada la impresora con los drivers correctos.
Ejemplo:
SET DEVICE TO PRINTER
STORE 0 TO L,P
=titula()
=detalle()
SET DEVICE TO SCREEN
Procedure titula
STORE 1 TO L
p=p+1
L=L+1
@ l,01             SAY "TITULO"
@ l,pcol()+1    SAY NombreFantasia1
@ l,pcol()+1   SAY "PAGINA"+TRANSFORM(p,"@KZ 999")
L=L+1
ENDPROC
Procedure detalle
 IF l>55
=titula()
ENDIF
l=l+1
@ l,01     SAY "detalle"
@l,pcol()+1 SAY 
ENDPROC
*SALU2!

¿Hola de new javier ya puedo imprimir pero mi problema ahora es que a la hora de imprimir todo mi formulario se desconfigura se descuadra todo las cajas de texto suben las etiquetas pierden forma cual es el problema?
Gracias

Es raro lo que te pasa. Intenta asegurandoté que las variables que usás para definir la posición en el @SAY se inicialicen en 0 cero para no arrastrar algún valor...
Verificá también que la impresora te tome siempre el papel desde la misma posición.
No se me ocurre otra cosa.

¿Gracias javer ya pude imprimir ahora tengo otro problema
como hago más pequeña la letra?
Me sale el tamaño en texto plano pero quisiera imprimir la letra más pequeña
es una epson LX-300 ya revise el manual y nada no veo que me diga que caracteres deba de utilizar
con el chR(16) + chr(12) me imprime las letras grandes pero quiero que sean pequeñas
Saludos de nuevo

Probá estos distintos tamaños. Saludos!
? Chr(14)
? Chr(18)
? Chr(20)
? Chr(27)
? Chr(72)

Nada man aun no consigo dejarlas pequeñas :s y otro detalle
al imprimir una cantidad
ejemplo
cantidad = thisform.text1.value
???space(5)+alltrim(str(thisform.text1.value))
¿Ahora mi pregunta es man
como puedo hacer que me tome encuenta las comas?
Por ejemplo tecleo 25,456.68
¿Y al imprimir sin utilizar el reporte me imprime 25456.68 solo los decimales me separa
que se puede hacer en este caso?
?

Vas a tener que usar una impresión así:
@1,2 SAY lnImporte PICTURE "9,999,999.99"