Aide pour une mise en page avec VBA

clara95 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   - 18 mai 2008 à 23:17
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
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Tu ne peu pas imbrigué 2 With, VBA ne s'y retrouverrait pas.
A+
0
clara95 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
ah ok je ne savais pas. Pourquoi faire compliquer quand on peut faire simple!!! merci pour l'info
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Mais tu peu régler ca avec... 
Sub MiseEnPagedelafeuille() 

With AvtiveSheets.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 
AvtiveSheets.Colums.EntireColumn.AutoFit 
AvtiveSheets.Rows.EntireRow.AutoFit 

ActiveWindow.SelectSheets.PrintPreview 
End Sub

A+
0

Discussions similaires

Comment faire pour couper une feuille en 4 sur word ?
anonyme -
Moi -

11 réponses