oReport con Landscape()

[yadira]

Hola a todos:
Tengo la necesidad de hacer un reporte de forma horizontal "LandScape() ", pero tengo algunas dudas:
por default el "FOOTER" esta en una posicion para Formato Vertical, Como cambio eso ???.

Como controlo el cambio de pagina en landscape() ?, es decir el numero de renglones por pagina.

Gracias por todo.

[cuatecatl82]

Hola de nuevo Yadira:

Si usas TReport y Tprinter:

Code: Select all

oReporte:SetLandscape()  //Impresión Landscape
oReporte:SetPortrait()      //Impresión Normal
oReporte:lAutoLand         := .T.  //Para que automaticamente cambie la orientación de la hoja en Vertical u horizontal

Para saber si un reporte esta en Landscape

Code: Select all

LOCAL lLand:= IF( oDevice:GetOrientation() == 1,(.F.),(.T.) )

IF lLand 
    msginfo("LANDSCAPE","Reporte")
ELSE
    msginfo("PORTRAIT","Reporte")
ENDIF

Espero te sirva..