Problema Tprinter - Bitmap

[FranciscoA]

Amigos, tengo un pequeño problema para presentar un bmp con la TPRINTER.

oReport:SayBitMap( nRow, nColConcep, "IcoEmpre.bmp",.8,.8 ) //Con Treport trabaja perfecto

pero,
oPrn:SayBitMap( nRow, nColConcep, "IcoEmpre.bmp",.8,.8 ) //Con TPRINTER no respeta el tamaño definido (lo dibuja pequeñísimo)

¿Alguna idea?, Fwxh 10.06
Saludos.

[carlos vargas]

/*define imagen del logo*/
REDEFINE IMAGE oImageLogoJR NAME "LOGO"
...

/*activa reporte*/
ACTIVATE REPORT oReporte;
ON POSTEND oReporte:Say(1,"Registros procesados :"+str(oReporte:nCounter),3);
ON STARTPAGE PrintLogo(oReporte)

...

PROCEDURE PrintLogo(oReporte)
LOCAL anC
LOCAL oRep := oReporte:oDevice

anC := oRep:CmRect2Pix( { 1.50, 1.00, 3.32, 1.70 } )

oReporte:oDevice:SayImage( anC[1], anC[2], oImageLogoJR, anC[3], anC[4] )

RETURN

[FranciscoA]

Gracias paisano. Funciona la conversión oRep:CmRect2Pix( { 1.50, 1.00, 3.32, 1.70 } ) usando la classe TPRINTER, que era lo que necesitaba, ya que con TREPORT trabaja bien.
.
local aCoord:=oPrn:CmRect2Pix( { 1.50, 1.00, 3.00, 3.00 } )
oPrn:SayBitMap( aCoord[1], aCoord[2], "IcoEmpre.bmp", aCoord[3], aCoord[4])

Saludos.

[carlos vargas]

a la orden.

salu2