[VBA-Excel] Ajuster l'impression sur une page

Bonjour,

Je souhaite grâce à une macro VBA ajuster l'impression d'une page afin qu'elle ne nécessite qu'une seule feuille.
En gros, j'aimerais un code qui fasse exactement la même chose que : Fichier/Mise en Page/Page/Ajuster X page(s) en largeur sur Y en hauteur.

Merci d'avance.

Bonsoir,

Citation:

---

Envoyé par L'Aide

"Cet exemple montre comment configurer Microsoft Excel de sorte qu'il imprime la feuille Sheet1 exactement sur une page en hauteur et en largeur."

---

Code:

---

1 2 3 4 5 6

with lafeuille.pagesetup <div style="margin-left:40px"> .zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1</div>end with

---

A toi de paramétrer ces propriétés en fonction de ce que tu veux faire.

Merci beaucoup !

Bonjour,

Je cherche à faire de manière autonome l'ajustement de la feuille excel avant l'impression papier ou PDF.
Mon code ci dessous est celui que j'utilise pour l'apercus avant impression, seulement après avoir lu et essayé les méthodes vu sur le net, je n'arrive pas à automatiser l'ajustement qui est fait manuellement dans mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Ajuster()   Worksheets("Tabelle1").Activate   With ActiveSheet.PageSetup .PrintArea = "$A$1:$F$132" .PaperSize = xlPaperA4 .LeftMargin = Application.InchesToPoints(1.25) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(0.45) .BottomMargin = Application.InchesToPoints(0.45) .Zoom = 55 .Orientation = xlPortrait   ActiveSheet.PrintPreview End With   End Sub

---

Le code présent plus haut dans ce fil de discussion ne compile pas sur mon Excel 2013

Pourriez vous m'aider s'il vous plait ?