aide macro impression

[gege21]

bonjours a tous j'ai un petit problème avec une macro
je doit imprimer une zone définie en feuille 2
et je doit avoirs le bouton de commande en feuille 1
voire ficher joint
merci pour votre aide

 

[Cousinhub]

Re : aide macro impression

Bonjour,

Essaie ainsi :

Sub Bouton1_Clic()
With Sheets("Feuil2").PageSetup
    .PrintArea = "$A$1:$h$30"
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .Orientation = xlPortrait
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Zoom = 100
    .PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Bonne nuit

 

[gege21]

Re : aide macro impression

bonjours et merci pour la réponse,

mais cella ne marche pas 🙁

si quelqu'un avais une ide 🙄

 

[Cousinhub]

Re : aide macro impression

Re-,

J'adore ce type de compte-rendu :

mais cella ne marche pas 🙁

C'est avec cela, qu'on avance....😡😡

essaie ainsi :

Sub Bouton1_Clic()
With Sheets("Feuil2").PageSetup
    .PrintArea = "$A$1:$h$30"
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0)
    .BottomMargin = Application.InchesToPoints(0)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .Orientation = xlPortrait
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Zoom = 100
    .PrintErrors = xlPrintErrorsDisplayed
End With
Sheets("Feuil2").PrintOut Copies:=1, Collate:=True
End Sub

Bonne soirée (et essaie d'être un peu plus explicite, la prochaine fois....)