Discussion :

[Vba14]

Bonsoir,

J'ai mis en place ce code qui me permet d'imprimer le tableau de la feuille active. Il y a un aperçu avant impression, un formatage de la feuille (centrée horizontalement, format paysage, impression sur une feuille)
Je me suis aidé de l'enregistreur de macro pour faire ce code.
Je pense qu'il est possible d'améliorer ce code, mais ça je ne sais pas faire, pourriez-vous m'apporter vos idées s'il vous plait ?

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
 
Sub ImpressionFeuille()
Application.ScreenUpdating = False
 
  ActiveSheet.PageSetup.PrintArea = [B5].CurrentRegion.Address 'Imprime à partir de la cellule B5 jusqu'à la dernière ligne saisie
  ActiveWindow.SelectedSheets.PrintPreview 'Aperçu de la zone qui sera imprimée
  With ActiveSheet.PageSetup
        .CenterHorizontally = True 'Centrée horizontalement
        .CenterVertically = False 'Pas centrée verticalement
        .Orientation = xlLandscape 'Format paysage
        .PaperSize = xlPaperA4 'Papier A4
        .Order = xlDownThenOver 'La numérotation et l'impression commencent par la première page,
                                'se poursuivent avec les pages situées à droite, avant de passer à la première page
                                'du dessous suivies des pages situées à sa droite.
        .FitToPagesWide = 1 'Imprime la feuille sur une page en largeur et en hauteur.
        .FitToPagesTall = 1
    End With
    Application.ScreenUpdating = True
End Sub

[clementmarcotte]

Bonjour,

Tu peux effacer toutes les lignes qui ne correspondent pas à des choses que tu n'as pas modifiées. L'enregistreur de macro enregistre tout; même les valeurs par défaut. Si tu ne les changes pas, tu peux les enlever de ton code. Et c'est toujours vrai et pour toutes les boîtes de dialogue.

Et tu peux aussi utiliser le contrôle RefEdit (Tu peux l'ajouter dans ta boîte à outils s'il n'y est pas.) Tu peux l'utiliser pour sélectionner des plages, quand tu n'est pas trop sûr des adresses.