Imprimir con TGraph()

Imprimir con TGraph()

Postby Rafael Clemente » Fri Oct 06, 2006 10:04 am

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
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Re: Imprimir con TGraph()

Postby wmormar » Sat Oct 07, 2006 6:15 pm

Rafael Clemente wrote: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
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby Rafael Clemente » Sat Oct 07, 2006 9:08 pm

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
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Francisco Horta » Sun Oct 08, 2006 5:00 am

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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Postby Rafael Clemente » Sun Oct 08, 2006 10:54 am

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
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Francisco Horta » Sun Oct 08, 2006 6:35 pm

Enviada...
salu2
Paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 43 guests