Bonjour,
J'ai plusieurs tableaux que je souhaiterais imprimer. Pour ce faire, j'ai défini des zones d'impression, les orientations et les tailles de papier, mais j'aimerais rajouter un petit plus, c'est-à-dire :
1) désactiver la fonctionnalité "Ajuster la feuille à une page"
2) au besoin et suivant la taille de mon tableau (j'en ai des costauds !), activer la fonctionnalité "Ajuster la feuille à une page".
Je mets ci-dessous mon script en VBA et j'adresse déjà un tout grand MERCI à la personne qui me viendra en aide.
En attendant, une toute belle fin de journée et un beau week-end.
Cordialement !
Frangil
Sub ILR_RoT()
ActiveSheet.PageSetup.PrintArea = "$A$37:$R$83"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
End With
ActiveSheet.PrintPreview
End Sub
J'ai plusieurs tableaux que je souhaiterais imprimer. Pour ce faire, j'ai défini des zones d'impression, les orientations et les tailles de papier, mais j'aimerais rajouter un petit plus, c'est-à-dire :
1) désactiver la fonctionnalité "Ajuster la feuille à une page"
2) au besoin et suivant la taille de mon tableau (j'en ai des costauds !), activer la fonctionnalité "Ajuster la feuille à une page".
Je mets ci-dessous mon script en VBA et j'adresse déjà un tout grand MERCI à la personne qui me viendra en aide.
En attendant, une toute belle fin de journée et un beau week-end.
Cordialement !
Frangil
Sub ILR_RoT()
ActiveSheet.PageSetup.PrintArea = "$A$37:$R$83"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
End With
ActiveSheet.PrintPreview
End Sub