Option d'impression par bouton de commande

Bonjour le Forum.

J'aimerai savoir si il existe un code pour imprimer selon les besoins.

Il me faut deux boutons :

Le premier pour imprimer sans les flêches et les données définits par zone d'impression. (je pense que j 'y suis parvenu, ou bien il y a encore plus simple).

Le second, doit me permettre d'imprimer les flêches de la page active, et là, je ne sais pas faire.

Avez vous une orientation ou le bout de code à associer à ce bouton ?

Par avance, merci.

Licaon

Bonjour,

Modifie les codes comme suivants :

Private Sub CommandButton1_Click()
    For Each S In ActiveSheet.Shapes
        S.ControlFormat.PrintObject = False
    Next S
    Application.Dialogs(xlDialogPrint).Show
End Sub
Private Sub CommandButton2_Click()
    For Each S In ActiveSheet.Shapes
        S.ControlFormat.PrintObject = True
    Next S
    Application.Dialogs(xlDialogPrint).Show
End Sub

Merci Raja pour ton aide rapide.

Pour aller plus loin, est-il possible avec le bouton 2 de sélectionner une zone d'impression différente, (définie au préalable), du bouton 1 ?

Licaon

Re,

Dans ce cas, je te conseille de sélectionner d'abord la plage à imprimer et cliquer sur les boutons de commande après pour imprimer. Les codes sont les suivants :

Private Sub CommandButton1_Click()
    For Each S In ActiveSheet.Shapes
        S.ControlFormat.PrintObject = False
    Next S
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    Application.Dialogs(xlDialogPrint).Show
End Sub
Private Sub CommandButton2_Click()
    For Each S In ActiveSheet.Shapes
        S.ControlFormat.PrintObject = True
    Next S
   ActiveSheet.PageSetup.PrintArea = Selection.Address
    Application.Dialogs(xlDialogPrint).Show
End Sub

On peut aussi fixer en dur la zone d'impression (c'est un exemple à adapter selon besoin) comme ça :

    ActiveSheet.PageSetup.PrintArea = "$A$1:$AI$15"

Dans ce cas, on n'a pas besoin de sélectionner la plage à imprimer. Tu as le choix maintenant.

Coucou Raja.

J'ai choisi l'option "fixer en dur la zone d'impression", ce classeur étant à dispo de plusieurs utilisateurs, je préfère simplifier l'utilisation.

C'est efficace et apporte encore un peu à ma connaissance.

Merci beaucoup de cette précieuse aide.

Bien à toi.

Licaon

Voici le classeur final .

Licaon