imprimir jpg

imprimir jpg

Postby surGom » Thu Feb 04, 2021 8:04 pm

Hola quisiera saber como puedo imrimir una imagen jpg en este cödigo

Code: Select all  Expand view  RUN

  IF !lmoneda .and. !lsinleyenda
      oPrn:Cmsay (19,2.2,("Para impositiva, NETO $: "+ alltrim(transform((ttatal*nDolares),"@e 999,999.99") )+ "  IVA$: " + alltrim(transform(ntiva,"@e 99,999.99"));
                                 + "  PIB BA: " + alltrim(transform(nIbru,"@e 99,999.99"))+ " PIB CF: " + alltrim(transform(nibrucap,"@e 99,999.99"))),oFont2 )
      oPrn:Cmsay (19.4,2.2, "TOTAL $: " +  alltrim(transform(nTotal,"@e 999,999.99") ))
   endif


  // @ 19, 2.2 PRINT TO oPrn IMAGE "qr.jpg" SIZE 1,1 INCHES NOTRANSPARENT STRETCH  //prueba no funciona
  // @ 19, 2.2 image "qr.jpg" SIZE 1,1   OF oPrn SIZE 1.1 // no funciona

 

 
if !lmoneda
   oPrn:Cmsay (19.4,2.2, "TOTAL $: " +  alltrim(transform(ntotal,"@e 999,999.99") ))
endif


   @ 20.5, 2.2 CM_INT25 AllTrim( aElectro:cCodbar ) of oPrn SIZE .8    


   oPrn:Cmsay( 21, 14.5, "TOTAL:", oFont )

etc, etc

 


Es para reemplazar el código de barras por el QR, la impresión es sobre una plantilla .emf
necesitaria imprimirlo dónde va el código de barras

Muchas Gracias
surGom
 
Posts: 640
Joined: Wed Oct 19, 2005 12:03 pm

Re: imprimir jpg

Postby nageswaragunupudi » Sat Feb 06, 2021 5:21 am

May we know what is the version of FWH you are using?

Code: Select all  Expand view  RUN
@ 19, 2.2 PRINT TO oPrn IMAGE "qr.jpg" SIZE 1,1 INCHES NOTRANSPARENT STRETCH  //prueba no funciona
 


Please use CM instead of inches, because your measurement is in CMs

Code: Select all  Expand view  RUN
@ 19, 2.2 PRINT TO oPrn IMAGE "qr.jpg" SIZE 1,1 CM   //prueba no funciona
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10690
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: imprimir jpg

Postby surGom » Sat Feb 06, 2021 11:46 am

Gracias por responderme Mr Rao la versión que utilizo es la 17.02.
Probé y ahora funciona perfecto. Yo había creado una funcion para pasar los cm a pixeles y también funciona, pero siempre pefiero usar las utilidades de fivewin


Luis
surGom
 
Posts: 640
Joined: Wed Oct 19, 2005 12:03 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 85 guests