faire une macro pour imprimer en A4

[wrndid]

bonjour je voudrais faire une macro avec un bouton imprimer quand je clic dessus j'imprime de la cellue b1 a ac34 en format A4
merci

 

[JCGL]

Re : faire une macro pour imprimer en A4

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Imprime()

    With ActiveSheet.PageSetup
        .PrintArea = "$B$1:$AC$34"
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut
End Sub

A associer à un bouton ou à une forme

A+ à tous

 

[wrndid]

Re : faire une macro pour imprimer en A4

ok super put on mettre en orientation paysage
merci

 

[JCGL]

Re : faire une macro pour imprimer en A4

Bonjour à tous,

Option Explicit

Sub Imprime()

    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$AC$34"
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = [B][COLOR=Blue]xlLandscape[/COLOR][/B]
        .PaperSize = xlPaperA4
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut
End Sub

A+ à tous