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.
/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
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.
a la orden. 
salu2