Fijar margenes en objeto Excel

:-)
Hola Gus,
Ya que usas OLE Automation para instanciar un objeto Excel, puedes usar:

With TuObjetoExcel.ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.984251968503937)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
End With

Te recuerdo que los valores se miden en pulgadas (cosas de yanquilandia) de
forma que debes dividir por 2,54.
Ejemplo:

El topMargin es de 1 cm -> 0.393700787401575 * 2.54 = 1 cm

PD - Consejo: En estos casos puedes usar el grabador de macros de Excel...
es de gran ayuda!
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en: http://tinyurl.com/4nbnb

This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

(Guía de netiquette del foro)
http://www.uyssoft.com/Netiquette/

Lluis, te agradezco la información y lo pondré a prueba

Gustavo
"Lluís Franco" escribió en el mensaje
news:

:-)
Hola Gus,
Ya que usas OLE Automation para instanciar un objeto Excel, puedes usar:

With TuObjetoExcel.ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.984251968503937)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
End With

Te recuerdo que los valores se miden en pulgadas (cosas de yanquilandia)

de

forma que debes dividir por 2,54.
Ejemplo:

El topMargin es de 1 cm -> 0.393700787401575 * 2.54 = 1 cm

PD - Consejo: En estos casos puedes usar el grabador de macros de Excel...
es de gran ayuda!
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en: http://tinyurl.com/4nbnb

This posting is provided "AS IS" with no warranties, and confers no

rights.

Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

(Guía de netiquette del foro)
http://www.uyssoft.com/Netiquette/