Modificar la configuración de página Excel a la que se exporta

[falkata82]

Esta es la parte de código en la que tengo que incluir lo que intento hacer ....

CALL METHOD OF exce1 'ActiveSheet' = hoja.
GET PROPERTY OF hoja 'PageSetup' = page.
SET PROPERTY OF page 'CenterHorizontally' = 1.

* SET PROPERTY OF page 'Orientation' = 2.

* Se pone la página en orientación vertical
SET PROPERTY OF page 'Orientation' = 1.



* SET PROPERTY OF page 'ZOOM' = 43.


* SET PROPERTY OF page 'ZOOM' = 70.
* Hay que configurar el formato de impresión desde SAP para que el Excel
* haga que sea de 1 hoja de ancho por Blanco de largo.
SET PROPERTY OF page 'Zoom' = 'False'.

SET PROPERTY OF page 'FitToPagesWide' = 4.
SET PROPERTY OF page 'FitToPagesTall' = 0.
* SET PROPERTY OF page 'ZOOM' = ' '.


* Se asigna 1 cm a todos los margenes (Se asigna el Nº de pixels/cm)
SET PROPERTY OF page 'LeftMargin' = c_margen.
SET PROPERTY OF page 'RightMargin' = c_margen.
SET PROPERTY OF page 'TopMargin' = c_margen.
SET PROPERTY OF page 'BottomMargin' = c_margen.
aaaa = '1'.


* Se cambia la hoja a DIN A3
SET PROPERTY OF page 'PaperSize' = '8'.