FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Justificar Easy Report
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Justificar Easy Report
Posted: Thu Aug 29, 2019 12:13 AM
Buenas noches

Estoy intentando justificar un texto multilinea en Easy Report, pero hasta ahora sin éxito tampoco he logrado cambiar el interlineado (espacio entre lineas). :-)


Propiedades del objeto

Algo de Código
Code (fw): Select all Collapse
    EASYREPORT oVRD NAME ".\report\trazabilidad.vrd" PREVIEW (.T.) MODAL
        IF oVRD:lDialogCancel = .T.
            RETURN( .F. )
        ENDIF

        oConsCA:MoveFirst()
        Do While !oConsCA:Eof()
        
            vArt := alltrim(oConsCA:Fields( "mm_articu" ):Value)
            vSer := alltrim(oConsCA:Fields( "serial" ):Value)
            vUrl := "https://imec.com.co/trazabilidad?arti="+vArt+"&seri="+vSer

            PRINTAREA 1 OF oVRD ;
            ITEMIDS    { 191,192,193,194,195,196,197,105,106 } ;
            ITEMVALUES {  vArt,;
                         alltrim(oConsCA:Fields( "mm_nombre" ):Value),;
                         vSer,;
                         alltrim(oConsCA:Fields( "nombre" ):Value),;
                         dtoc(oConsCA:Fields( "mm_fechas" ):Value),;
                         vUrl,;
                         "2019IMEC",;
                         vUrl,;
                         vUrl;
                       } 
            
            PAGEBREAK oVRD
            oConsCA:MoveNext()
        EndDo
        oConsCA:close()
    END EASYREPORT oVRD


De antemano gracias
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion