XL 2019 VBA problème zone d'impression

Lionel69890

XLDnaute Junior
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
 
Solution
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"

1674202623627.png


Merci de ton retour

@Phil69970

Lionel69890

XLDnaute Junior
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof