Saludos
tengo esta intruccion como preprocesador para imprimir imagenes JPG, pero al correrla me marca errores,
alguna ayuda?....
Gracias
tengo esta intruccion como preprocesador para imprimir imagenes JPG, pero al correrla me marca errores,
alguna ayuda?....
#command IMPRIME IMAGEN <cImagen> POS <nRow>,<nCol>;
SIZE <nWidth>,<nHeight> EN <Reporte>;
=> <Reporte> := ImprImagen(<Reporte>,<cImagen>,<nRow>,<nCol>,<nWidth>,<nHeight>)
codigo fuente de prueba
imprime imagen 'c:\tmp\banorte.jpg' pos nRen+4,0 size 150,80 en oPrn
// --- Impresion de una imagen
function ImprImagen(OBJ_PRINT,cImagen,nRow,nCol,nWidth,nHeight)
local oImage
if File(cImagen)
@ nRow,nCol IMAGE oImage FILE cImagen SIZE nWidth,nHeight OF OBJ_PRINT ADJUST
oImage:Progress( .f. )
oImage:LoadBmp(cImagen)
oImage:Refresh()
oImage:SaveImage(cImagen,2)
endif
return NILGracias
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com