Aide pour une mise en page avec VBA

Bonjour,
Avec la syntaxe with end with , je veux créer une procedure qui permet de definir ma mise en page de ma feuille et redimensionner les colonnes et lancer limpression
Mais dès ma 3ième ligne ça m'ecrit erreur d'execution '1004' Erreur definie par l'application ou par l'objet
Pouvez-vous m'aider à trouver mon erreur et les modification à apporter s'il vous plait?

Voici mon programme:

Sub MiseEnPagedelafeuille()
With ActiveSheet
With .PageSetup
.Orientation = xLandscape
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Page & P"
.RightFooter = ""
End With
.Colums.EntireColumn.AutoFit
.Rows.EntireRow.AutoFit

ActiveWindow.SelectSheets.PrintPreview
End With
End Sub

Configuration: Windows Vista
Internet Explorer 7.0