FiveTech Support Forums

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.

No hace falta mirar nada.
El problema era del easypreview que por lo visto no se adapta bien al harbour+fwh (supongo que será por las emf).
El printer si PREVIEW va perfecto.

Yo he tenido los mismos problemas con impresoras HP de las nuevas, y además me sacaba varias páginas sin saber por que.
La impresora estaba conectada por USB, ( que supongo que no tendrá nada que ver ).
Me entretuve poco a poco comentando líneas de código y cambiando cosas hasta que lo arreglé como pude.
Un saludo.

Julio Cepeda wrote:Yo he tenido los mismos problemas con impresoras HP de las nuevas, y además me sacaba varias páginas sin saber por que.
La impresora estaba conectada por USB, ( que supongo que no tendrá nada que ver ).
Me entretuve poco a poco comentando líneas de código y cambiando cosas hasta que lo arreglé como pude.
Un saludo.

No lo he probado pero se me ocurre que definas la fuente antes de generar la página. Yo nunca he tenido problemas con las fuentes pero siempre las defino antes de crear la página. Espero te sirva. Saludos

jll-fwh wrote:Yessica:

Code (fw): Select all Collapse

   aPrinters       := aGetPrinters()             // ARRAY que contiene las impresoras instaladas
  cPrinter        := PrnGetName()               // Impresora por Defecto

Un saludo
JLL