XL 2019 VBA problème zone d'impression

[Lionel69890]

Bonjour à tous,

J'ai une macro qui me permet d'imprimer toutes les feuilles de la feuilles n°5 à xx
je souhaite que l'impression soit ajustée de la colonne A à I mais à l'impression ma zone d'impression est mal définie et cela me sort plusieurs page en largeur

Quelqu'un peut-il m'indiquer comment résoudre ce problème ? Merci d'avance pour votre aide

Sub IMPRESSION()

' IMPRESSION Macro
'
Dim nbfeuilles As Long
nbfeuilles = ThisWorkbook.Sheets.Count
For I = 5 To nbfeuilles
Worksheets(I).Activate
Datesem = Range("B2")
NomFeuille = ActiveSheet.Name
noSemaine = Format(Datesem, "ww", vbMonday, vbFirstFourDays)
Plage = "A1:I" & Range("A" & Rows.Count).End(xlUp).Row

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PrintArea = Plage
.FitToPagesTall = False
.FitToPagesWide = 1
End With

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next I
'
End Sub

 

[Phil69970]

Bonjour (voisin) @Lionel69890

Je te propose d'aller voir la réponse ici où j'ai commenté toutes les lignes de paramétrage pour une impression.
Je te conseille aussi de te servir du moteur de recherche du site pour chercher "ton bonheur"

Merci de ton retour

@Phil69970

 

[Lionel69890]

Bonjour (voisin) @Lionel69890

Je te propose d'aller voir la réponse ici où j'ai commenté toutes les lignes de paramétrage pour une impression.
Je te conseille aussi de te servir du moteur de recherche du site pour chercher "ton bonheur"

Regarde la pièce jointe 1160846

Merci de ton retour

@Phil69970

Super merci j'ai trouvé mon bonheur voisin
J'avais oublié ce paramètre
.Zoom = 80
et l'impression s'ajuste à toutes mes colonnes