[VBA] Remplacer ZOOM par largeur de page

TheLio · 21 Décembre 2007

Salut les xldiens et et diennes,
à quelques jours de fêtes j'espère que vous allez bien et que l'abus de foie gras ne vous pèse pas trop.

Ma question la voici, j'aimerais remplacer dans ma macro qui gère les mise en page la fonction zoom ci dessous:

Code:

.Zoom = 67

par "ajuster à une page en largeur " et "" en hauteur mais je ne trouve point l'objet concerné.
Merci
A++
TheLio

pierrejean · 21 Décembre 2007

Re : [VBA] Remplacer ZOOM par largeur de page

bonjour Thelio

A tester:

Code:

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

TheLio · 21 Décembre 2007

Re : [VBA] Remplacer ZOOM par largeur de page

Toujours aussi rapide, toujours aussi efficace,
M E R C I Pierrejean,

je l'ai adapté ainsi:

Code:

.FitToPagesWide = 1
.FitToPagesTall = False

A++
TheLio

TheLio · 21 Décembre 2007

Re : [VBA] Remplacer ZOOM par largeur de page

Re, étonnament, il reste en zoom 60 avec ceci:

Code:

With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "Etabli le : &D"
        .CenterHeader = "&F"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "Page &P"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.03)
        .RightMargin = Application.InchesToPoints(0.03)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .HeaderMargin = Application.InchesToPoints(0.15)
        .FooterMargin = Application.InchesToPoints(0.15)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .FitToPagesWide = 1
        .FitToPagesTall = False

    End With
End Sub

Mais je ne vois pas ou j'ai fait la boulette.

A++
TheLio

TheLio · 21 Décembre 2007

Re : [VBA] Remplacer ZOOM par largeur de page

Corrigé tout seul, il fallait ajouter

Code:

[COLOR="Red"].Zoom = False[/COLOR]
.FitToPagesWide = 1
.FitToPagesTall = False

Merci A++
TheLio

pierrejean · 21 Décembre 2007

Re : [VBA] Remplacer ZOOM par largeur de page

Re

a tester:

Code:

   ....
   .BlackAndWhite = False
   [COLOR=red].Zoom = False[/COLOR]
   .FitToPagesWide = 1
   ........

largement apres la bataille !!!!

[VBA] Remplacer ZOOM par largeur de page

TheLio

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

TheLio

XLDnaute Accro

TheLio

XLDnaute Accro

TheLio

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

Discussions similaires