Discussion :

[NEC14]

Bonjour à tous,

J'ai tapé ce code qui me permet d'imprimer une feuille, mais il ne me paraît pas très lisible ou tout du moins un peu long.
Pouvez-vous me donner votre avis et comment faire pour le simplifier ?
Je vous en remercie par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        End With

Pas pour imprimer le document mais pour le sauvegarder. De plus, je dois trouver une solution afin que le fichier résultant de la sauvegarde se ferme automatiquement car pour le moment il reste ouvert et ne se ferme que lorsque l'application est fermée (suis-je clair )

[Daniel.C]

Bonjour,

Tu peux ne conserver que les éléments que tu as modifiés. Par exemple, si tu n'as pas déjà un entête gauche, il est inutile de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.LeftHeader = ""

Cette ligne n'est utile que si tu souhaites supprimer un entête gauche préexistant. Il en va de même pour les autres lignes.

[NEC14]

En fait, je pourrais presque supprimer toutes ces écritures ??

[Daniel.C]

Absolument.

[NEC14]

Eh bien, je m'exécute, je supprime.
Merci pour ton aide
René