Discussion :

[Olivierporcinet]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 With tempWs.PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PaperSize = xlPaperA4
        .LeftMargin = 50
        .RightMargin = 0
        .TopMargin = 30
        .BottomMargin = 0
        .CenterHorizontally = False
        .CenterVertically = False
    End With

Je cherche le moyen de conserver la largeur des colonnes et hauteurs de lignes lors de l'impression (pas de mise à l'échelle).

Merci.

Belle journée.

[tototiti2008]

Bonjour,

Si vous ne voulez aucun changement d'Echelle, il faut mettre

Code :

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

        .Zoom = 100

et effacer les 2 lignes .FitToPagesWide et .FitToPagesTall

[Olivierporcinet]

Merci.

Mais la largeur des colonnes n'est pas respectée.

Je suis obligé de "renvoyer à la ligne automatiquement"