Imprimir con TGraph()

[Rafael Clemente]

Alguien sabe cómo imprimir con la clase TGraph() desde FWH 2.6?
Simplemente estoy haciendo esto pero me da un error raro: "Error (6) Deleting enhanced metafile" y el preview sale en blanco.

Code: Select all  Expand view  RUN

  oPr := PrintBegin("TGraph test", .T., .T., , .T.)
  oPr:lPrvModal:=.T.
  PageBegin()
       oGraph:Print(oPr, 0, 0, 1000, 1000)
  PageEnd()
  PrintEnd()


Alguien lo tiene resuelto?
Gracias
Rafael

[wmormar]

Alguien sabe cómo imprimir con la clase TGraph() desde FWH 2.6?
Simplemente estoy haciendo esto pero me da un error raro: "Error (6) Deleting enhanced metafile" y el preview sale en blanco.

Code: Select all  Expand view  RUN

  oPr := PrintBegin("TGraph test", .T., .T., , .T.)
  oPr:lPrvModal:=.T.
  PageBegin()
       oGraph:Print(oPr, 0, 0, 1000, 1000)
  PageEnd()
  PrintEnd()


Alguien lo tiene resuelto?
Gracias
Rafael

Rafael,

Lo he solucionado de la siguiente manera.

Code: Select all  Expand view  RUN

oDlg:SaveToBmp( "grafica.bmp" )


Y mando a imprimir el archivo.

Saludos

[Rafael Clemente]

Gracias, William. Esa posibilidad está indicada en los ejemplos y como último recurso, vale. Yo me refería a si alguien ha conseguido hacer funcionar el método Print() en FWH y XP
Un saludo,
Rafael

[Francisco Horta]

Rafa, a mi me va bien, defino el tamaño en cm del area de impresion, pero luego cambio a pixeles ese tamañao para que funcione con cualquier impresora, te paso el codigo como lo uso si necesitas la lib te la envio..

LOCAL oPrn, nTop := 2.0, nLeft := 2.0, nHeight := 11.5, nWidth := 20

oPrn:=PrintBegin("Imprimir Grafica de Clientes",.F.,.T.,,.T.)

oPrn:SetPortrait()
oPrn:Cmtr2Pix(@nTop , @nLeft)
oPrn:Cmtr2Pix(@nWidth, @nHeight)

Page
oGra:Print( oPrn, nTop, nLeft, nWidth, nHeight )
PageEnd()
PrintEnd()
sysRefresh()
oPrn:End()
DeleteObject(oPrn)

salu2
Paco

[Rafael Clemente]

Paco:
He probado tu código (que era básicamente idéntico al mio) y tampoco va.
Me sigue dando el error "Error (6) Deleting enhanced metafile" y el preview sale en blanco.
Me pregunto si tendrá algo que ver con mi versión de FWH (2.6). Me puedes enviar tu lib, a ver...? Mi correo es: rclemente@ya.com
Gracias
Rafa

[Francisco Horta]

Enviada...
salu2
Paco