fich excel/vba

Question

bonjour,
j'aimerai savoir comment faire pour définir une mise en page dans vba avant l'impression d'un fichier excel créé a partir vba.
Par exemple je voudrais le mettre en format A3,centrer le contenu,afficher le quadrillage.
Voilà merci d'avance!

nanougat · Answer

Bonjour,



Essaies cette proc&#233;dure



Sub formatA3



    Range("A1:F13").Select   
'''''''''''  A1:F13 &#233;tant la zone &#224; imprimer.  Pour d&#233;finir
cette zone, tu te mets sur la premi&#232;re cellule en haut et &#224; gauche et
tu te sers de la fonction "currentregion" qui r&#233;cup&#232;re la derni&#232;re
cellule en bas &#224; droite . Attention cela te prend toutes les cellules
occup&#233;es.



       Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With ActiveSheet.PageSetup

        .PrintTitleRows = ""

        .PrintTitleColumns = ""

    End With

    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$13"

    With ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = ""

        .CenterFooter = ""

        .RightFooter = ""

        .LeftMargin = Application.InchesToPoints(0.78740157480315)

        .RightMargin = Application.InchesToPoints(0.78740157480315)

        .TopMargin = Application.InchesToPoints(0.984251968503937)

        .BottomMargin = Application.InchesToPoints(0.984251968503937)

        .HeaderMargin = Application.InchesToPoints(0.511811023622047)

        .FooterMargin = Application.InchesToPoints(0.511811023622047)

        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintNoComments

        .PrintQuality = 600

        .CenterHorizontally = True

        .CenterVertically = True

        .Orientation = xlPortrait

        .Draft = False

        .PaperSize = xlPaperA3

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

    End With

End Sub

Fich excel/vba

1 réponse

Discussions similaires