Buenas,
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
Eso no es problema, pero a la hora ed poner para imprimir, en cualqueir tipo de impresora, utilizo el siguiente codigo:
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.
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!
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
Eso no es problema, pero a la hora ed poner para imprimir, en cualqueir tipo de impresora, utilizo el siguiente codigo:
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 nilA 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.
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!
Nicol谩s
