Estoy intentando imprimir unas credenciales, y al utilizar qimag:LoadBmp( varnum[24] ) me da correctamente en pantalla la imagen. varnum[24] tiene la dirección del archivo .JPEG
![Image](https://i.ibb.co/2PcMVSq/ade5d74d-1b97-4cdb-badc-621625ba0373.jpg)
Eso no es problema, pero a la hora ed poner para imprimir, en cualqueir tipo de impresora, utilizo el siguiente codigo:
- Code: Select all Expand view
- function imprimirCredencial()
local oPrn
local fotoAfiliado := TImage(), fondo := TImage(), aTam, rec1, rec2
nRast := 8913094
if getprintdc() = 0
return .f.
endif
PRINT oPrn NAME "Imprimiendo credencial" PREVIEW modal
DEFINE FONT oFONt1 NAME 'Montserrat-black' SIZE 0, -10 of oprn
DEFINE FONT oFONt2 NAME 'Montserrat' SIZE 0, -10 of oprn
DEFINE FONT oFONt3 NAME 'Montserrat' SIZE 0, -8.8 of oprn
DEFINE FONT oFONt4 NAME 'Montserrat' SIZE 0, -6 of oprn
DEFINE FONT oFONt4b NAME 'Montserrat' SIZE 0, -6 BOLD of oprn
Define brush obrush color CLR_BLACK strech
fondo:loadbmp('fondo.bmp' )
fotoAfiliado:LoadBmp(varnum[24])
qbarQR := 123456789
hZebra := hb_zebra_create_qrcode(qbarQR,nil)
recixQR := oPrn:Cmtr2Pix(0.86,3.48)
PAGE
oPrn:SayImage(92,113,fotoAfiliado,220, 220)
oPrn:SayImage(0,0, fondo,1036, 661)
hb_zebra_draw( hZebra, {|x,y,w,h| oPRN:FillRect({recixQR[1] + Int(y+.5), recixQR[2] + Int(x+.5), recixQR[1] + Int(y+.5)+Int(h)+1, recixQR[2] + Int(x+.5)+Int(w)},oBRUSH) }, 0, 0, 6, 6 )
hb_zebra_destroy( hZebra )
//DATOS
oprn:cmsay(3.19, 0.7,"TITULAR:",oFONT3,,CLR_12) // titular
oprn:cmsay(3.1, 2.1,left(VARNUM[5],27),oFONT1,,CLR_12) // titular
oprn:cmsay(3.59, 0.72,"SOCIO N°:",oFONT3,,CLR_12)
oprn:cmsay(3.54, 2.25,ALLTRIM(STR(VARNUM[1])),oFONT2,,CLR_12) // socio
oprn:cmsay(3.995, 0.72,"C.U.I.L. N°:",oFONT3,,CLR_12)
oprn:cmsay(3.95, 2.25,ALLTRIM(TRANSFORM(VARNUM[8],'@e 99-99999999-9')),oFONT2,,CLR_12) // CUIL
//DISCLAIMER
oprn:cmsay(4.54, 0.7,"El uso de esta tarjeta es personal e intrasferible. En caso de extravío",oFONT4,,CLR_13)
/* VARIOS CMSAY MAS QUE NO TIENEN RELAVANCIA */
ENDPAGE
ENDPRINT
fondo:end()
fotoAfiliado:end()
ofont1:end()
ofont2:end()
ofont3:end()
ofont4:end()
ofont4a:end()
return nil
A su vez, el fondo veo que lo tengo en muy buena resolución y a la hora de ponerlo a imprimir baja bastante. Adjunto capturas.
![Image](https://i.ibb.co/DW2CPBs/fondo.png)
![Image](https://i.ibb.co/yRFgzLt/94d80a26-b91c-4bba-b105-7d02a79329aa.jpg)
Espero si puedan ayudarme, porque ya no encuentro otra solución. Puede ser porque uso el BMP del fondo con transparencias? Aun asi, abri el BMP con un editor, y sigue estando en muy buena calidad, pero a la hora de imprimir, baja considerablemente.
Muchas gracias!