imprimir jpg

[surGom]

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

Code: Select all

  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

[nageswaragunupudi]

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

Code: Select all

 @ 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

 @ 19, 2.2 PRINT TO oPrn IMAGE "qr.jpg" SIZE 1,1 CM   //prueba no funciona
 

[surGom]

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