Hola foro. Me estoy volviendo gilipollas o es que ya no se usar el objeto TPrinter ... me explico
Function Prueba()
Local oPrn, oFont
PRINT oPrn PREVIEW
PAGE
DEFINE FONT oFont NAME "Courier New" SIZE 0,-12 OF oPrn
oPrn:cmSay (1,1,"HOLA MACARENA",oFont)
oFont:End()
ENDPAGE
ENDPRINT
Return (nil)
... pues esto me imprime el HOLA MACARENA pero super-comprimido y unas letras encima de otras.
He probado combinaciones con el SIZE pero nada.
¿¿¿¿ que ocurre ????
Gracias.