Imprimer une page via un bouton de commande (code vba)

abousaad

XLDnaute Junior
Bonjour à tous;
Comment modifier ce code afin d'imprimer seulement la première page d'une feuille active?
veuillez voir le fichier attaché.
Merci pour l'aide
 

Pièces jointes

  • Imprimer.xlsm
    19.1 KB · Affichages: 76
  • Imprimer.xlsm
    19.1 KB · Affichages: 92
  • Imprimer.xlsm
    19.1 KB · Affichages: 103

Dull

XLDnaute Barbatruc
Re : Imprimer une page via un bouton de commande (code vba)

Salut Abousaad, le Forum

Avec le peu de renseignements donnés...Peut-être comme cela

Code:
Sub Bouton1_Cliquer()

With Application
.ScreenUpdating = False
    ActiveSheet.Range("A1:H50").PrintOut Copies:=1, Collate:=True
.ScreenUpdating = True
End With
End Sub

Bonne Journée
 
Dernière édition:

abousaad

XLDnaute Junior
Re : Imprimer une page via un bouton de commande (code vba)

Salut Abousaad, le Forum

Avec le peu de renseignements donnés...Peut-être comme cela

Code:
Sub Bouton1_Cliquer()

With Application
.ScreenUpdating = False
    ActiveSheet.Range("A1:H50").PrintOut Copies:=1, Collate:=True
.ScreenUpdating = True
End With
End Sub

Bonne Journée

Merci bcp
oui c'est ça ce que je veux.
Le code marche très bien.
Merci encore
 

Discussions similaires

Réponses
4
Affichages
191
Réponses
1
Affichages
113

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 810
dernier inscrit
mohammedaminelahbali