Definir une zone d'impression rapidement

Bonjour à tous,

Je vais commencer par enfoncer une porte ouverte: mes connaissances VBA sont quasi inexistantes.

Je cherche une macro qui me permette en la lançant de :

• Faire que la zone que j'ai selectionnée devienne une zone d'impression
• Imprimer cette zone

J'imagine que c'est d'une simplicité enfantine pour ceux qui dominent le sujet mais pour moi c'est comme de la physique quantique !

Merci de votre aide.

Bonjour,

regarde si ceci peut te convenir

Sub printselection()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Merci beaucoup h2so4, c'est exactement ce que je cherchais.

Bonjour

et pour un Format A4 sur une feuille

Sub TestA4()
   With ActiveSheet.PageSetup
    .PrintArea = "$B$1:$I$49" ' Dimension de la Feuille
    .Orientation = xlPortrait ' Portrait
    .PaperSize = xlPaperA4 'Format papier
    .LeftMargin = Application.InchesToPoints(0.4)
    .CenterHorizontally = True
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .BlackAndWhite = False ' Couleur & mettre True pour le noir et blanc
   End With
End Sub

A+

Maurice