PROBLEMAS CON TIMAGE

[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()
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

[jhugono]

Tengo el mismo problema;

Code: Select all

PRINT oPrn NAME 'MANTENIMIENTO' PREVIEW
oprn:SETportrait()
oIMG:=TIMAGE():NEW()
oImg:LoadBmp('F32a.BMP' )
PAGE
aTam := oPrn:Cmtr2Pix(21.25,27.5)
oPrn:SayImage(0,0,oIMG,aTam[1],aTam[2])
ENDPAGE
ENDPRINT
oIMG:END()
RETURN NIL

Alguien Me puede Ayudar.

Saludos y Gracias