IMPRESION CON TIMAGE

Post Reply
Marco Augusto
Posts: 122
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

IMPRESION CON TIMAGE

Post by Marco Augusto »

SALUDOS
TENGO PROBLEMAS AL IMPRIMIR POR SEGUNDA VEZ
UNA IMAGEN, UTILIZO EL SIGUIENTE CODIGO
*
FUNCTION REPORTE
PRINT oPrn NAME 'MANTENIMIENTO' PREVIEW
oprn:SETportrait()
oIMG:=TIMAGE():NEW()
oImg:LoadBmp('IMAGEN.BMP' )
PAGE
aTam := oPrn:Cmtr2Pix(21.25,27.5)
oPrn:SayImage(0,0,oIMG,aTam[1],aTam[2])
ENDPAGE
ENDPRINT
oIMG:END()
oFONT1:END()
oFONT2:END()
oFONT3:END()
RETURN NIL


FUNCIONA PERFECTO, PERO CUANDO UTILIZO LA RUTINA
POR SEGUNDA VEZ ME ENVIA EL SIGUIENTE MENSAJE DE ERROR

Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND
Args:

Stack Calls
===========
Called from: => HWND(0)
Called from: BITMAP.PRG => TBITMAP:NEW(0)
Called from: IMAGE.PRG => TIMAGE:NEW(0)
Called from: cmov.prg => REPORTE(796)
Called from: cmov.prg => (b)MANTENIMIENTO(80)
Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
Called from: WINDOW.PRG => TMDICHILD:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0)
Called from: MDICHILD.PRG => TMDICHILD:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: WMANTE.prg => MAIN(97)

ALGUIEN ME PODRIA AYUDAR?

GRACIAS
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
Post Reply