FiveTech Support Forums

***********************************
*PROCESO IMPRESION DE LAS GARANTIAS
***********************************
FUNCTION impGarantias()
Local cRutaLogo := ".\report\Imagen1.png"
Local cRutaLogo2 := ".\report\Imagen2.png"
Local aPgSize := {}

EASYREPORT oVRD NAME ".\report\garantias.vrd" PREVIEW (.T.) MODAL
    IF oVRD:lDialogCancel = .T.
        RETURN( .F. )
    ENDIF

    aPgSize := oVRD:oPrn:GetPhySize

    PRINTAREA 1 OF oVRD
    oVRD:oPrn:PrintImage( 1, 10, cRutaLogo, aPgSize[1] - 3 , aPgSize[2] , .T. , , , ,"MM" )
        
    PAGEBREAK oVRD
    PRINTAREA 2 OF oVRD
    oVRD:oPrn:PrintImage( 4, 10, cRutaLogo2, aPgSize[1] - 13 , aPgSize[2] - 3 , .T. , , , ,"MM" )

END EASYREPORT oVRD
Return nil