Buen dia
Tengo un reporte que fue creado con la clase PRINT y deseo imprimir una imagen en Jpg "d:\fotos\producto11.jpg"
cual seria la forma de imprmirlo , como calular su ubucacion, evitando la distorsion de la imagen.
Les agradecere su ayuda.
Lubin
METHOD PrintLogo() CLASS Facturas
local cLogo := "image.jpg"'
local oImage :=TImage():define( , cLogo )
local nRen := 1
local nCol := 2
local nAncho := 4
local nAlto := 6
SayImg( nRen, nCol, nAncho, nAlto, oImage,::oPrn)
oImage:end()
return nil
Function SayImg(nArriba,nIzq,nAncho,nAlto,xBitmap,oPrn)
**********************************************************************
Local xCor := {}
LOCAL nPixWidth, nPixHeight
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
// Pasamos nAncho y nAlto a Pulgadas
nAncho := nAncho/2.54
nAlto := nAlto /2.54
nPixWidth := INT(oPrn:nLogPixelY()*nAncho)
nPixHeight := INT(oPrn:nLogPixelX()*nAlto)
oPrn:SayImage(xCor[1],xCor[2],xBitmap,nPixWidth ,nPixHeight)
RETURN NIL