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
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