TPrinter

[AngelSalom]

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.

[AngelSalom]

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.

[Julio Cepeda]

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.

[Yessica]

Que comando usar para saber que la impresora lasser que esta por default esta en linea ? ya que si no esta lista manda un error y me saca de la aplicacion.
Ojala y me puedan ayudar con esto.

Gracias Yessi.

Fivewin 2,4 xharbour

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.

[horacio]

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]

Yessica:

Code: Select all  Expand view

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

Un saludo
JLL

[Yessica]

Mi Estimado JLL:

Agradezco tu informacion, pero sabes no precisamente es saber que impresoras estan instaladas, si no mas bien como saber que esa impresora que seleccionan esta en linea, antes de mandar a imprimir, puesto que si no esta lista la impresora, pues la aplicacacion se cae porque manda un error. Me explique?

Espero me puedas ayudar de antemano gracias.

Yessi.

Yessica:

Code: Select all  Expand view

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

Un saludo
JLL