Margenes

Amp,

Esta macro la he creado en un minuto usando la grabadora de macros de Excel,
o sea la ha creado Excel y yo solo la he limpiado un poco.

Sub Establecer_Margenes()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
End With
End Sub

Si quieres aplicar esta macro automaticamente a todas las hojas del libro
entonces la cambiarias para que lea asi:

Sub Establecer_Margenes_Libro()
For Each s In ActiveWorkbook.Sheets
With s.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
End With
Next s
End Sub

Saludos,
KL


"amp" wrote in message
news:%23hz$

Tengo varios excels que me envian por correo diariamente. Lo que quiero es
que cuando los abra automaticamente se me cambie los margenes a 0,0,0,0
para
poderlo imprimir bien.

Lo que no quiero es tener que cambiar los margenes cada vez o hacer un
etablecer area de impresion.

Se me ha ocurrido hacer una macro que cambie los margenes y hacer que esta
se ejecute despues de abrir un excel cualquiera. ¿es posible? ¿como?