USO DE PRINT como definir Margenes y REPORT Insertar Codigo

[ruben Dario]

Saludos al Forum

Como defino un margen Superior , Intefior Etc..
La otra Pregunta es como insertar un trozo de codigo al report

Code: Select all  Expand view

     for x=1 to len(objt:oRepgene)
               xtit = Objt:oRepgene[x,1]  //Titulo Columna
               xcam = Objt:oRepgene[x,2]  //Vble columna BD
               xcol = Objt:oRepgene[x,9]  //Posicion coluna impresion  
               xpic = Objt:oRepgene[x,8]  //El Picture
               xvra = Objt:oRepgene[x,6]  //Para Indicar fecha o Campos logicos  
               Ctexto := Ctexto + "COLUMN TITLE '"+xtit+"' DATA bs_mostdato(oDbf,'"+xcam+"',' ','"+xvra+"',oApp:rt)"+CRLF
    Next

    REPORT oReport ;
           TITLE " ",Objt:cSistema,::subtit,::subtit1,::subtit2;
           FOOTER oApp:MTITU1+"  Modulo.: "+Objt:cnomdul+"  Pagina No:" + STR(oReport:npage,3) + "   Fecha:"+DTOC(DATE()) CENTER;
           FONT ::tipledet ;
           TO DEVICE aPrn  //PREVIEW CAPTION "Reporte de Rubros"  
Nota Aqui es donde quiero adicionar el codiog que contiene Ctexto
           &(Ctexto)

             
    END REPORT

 

Ya que cuando genero en documento la linea fina del reporte queda muy pegada al final de pagina , por esa razon requiero eses margen, Gracias , Sugerencias.

[Carlos Mora]

Hola Ruben Dario,

creo que lo mejor es, en lugar del &(), hacer un FOR/NEXT de sentencias ADD COLUMN TO oReport .

Code: Select all  Expand view

REPORT oReport ;
           TITLE " ",Objt:cSistema,::subtit,::subtit1,::subtit2;
           FOOTER oApp:MTITU1+"  Modulo.: "+Objt:cnomdul+"  Pagina No:" + STR(oReport:npage,3) + "   Fecha:"+DTOC(DATE()) CENTER;
           FONT ::tipledet ;
           TO DEVICE aPrn  //PREVIEW CAPTION "Reporte de Rubros"  

     for x=1 to len(objt:oRepgene)
           ADD COLUMN oCol TO REPORT oReport TITLE (Objt:oRepgene[x,1] ) DATA bs_mostdato(oDbf,'"+xcam+"',' ','"+xvra+"',oApp:rt)"+CRLF etc Tc
     Next

[ruben Dario]

Gracias Carlos ,
Voy hacer pruebas.