Problema importante despues de actualizar. Con los margenes

Hola.

La siguiente macro abre las hojas de cálculo que se encuentran en un
determinado directorio y pestaña por pestaña, cambia los márgenes superior /
inferior / izquierdo / derecho / de encabezado / de pie, dejándolos a valor
cero. Posteriormente te guarda cada fichero

Puedes realizar la prueba.

Sub ajustar_margen_hojas()
mifichero = Dir("C:\tudirectorio\*.xls")
Do Until mifichero = ""
Workbooks.Open FileName:=mifichero
For Each shtSheet In Sheets
With shtSheet.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 shtSheet
ActiveWorkbook.Close SaveChanges:=True
mifichero = Dir()
Loop

End Sub

Saludos,

Benito Merino
Barcelona


"jose bellot" wrote:

he actualizado mi version de office 2000 a la version de office 2003 y me he
encontrado con una verdadera sorpresa (putada seria una mejor definicion).
tenia en mi version de excel realizados un monton de documntos tipo facturas
y con el excel 2003 me aparecen todos descuadrados y tengo que ir documento a
documento cambiando los margenes a como venian en 2000.
El problema en concreto es que con excel 2000 los margenes venian a 0 y con
excel 2003 vienes a 2 o 2,5. con lo q