Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Peponne31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

Peponne31

Guest
Bonjour,
Je voudrais créer un petit programme adapté à mes besoins pour gérer l'inventaire d'un petit magasin de stock de nos machines, j'en suis à l'impression du stock par machine, je voudrais supprimer les couleurs à l'impression que l'on peut voir sur le fichier joint, et imprimer jusqu'à la dernière ligne qui contient quelque chose même si cela comporte une ou 2 pages. L'impression se fait depuis la colonne A3 jusqu'à la colonne E3. Le programme contient plusieurs feuilles et chaque feuille est identique et adapté à une machine différente.
Merci pour votre aide.
Peponne31
 

Pièces jointes

Re : Impression

Bonjour à tous,

Peux-tu essayer :

VB:
Sub Cmb_Imprimer_click()
    With ActiveSheet.PageSetup
        .PrintArea = [A3].CurrentRegion.Address
        .BlackAndWhite = True
    End With
    ActiveSheet.PrintPreview
End Sub

A+ à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
Réponses
3
Affichages
1 K
M
Réponses
19
Affichages
2 K
Z
Réponses
2
Affichages
4 K
Z
M
Réponses
2
Affichages
2 K
Majora
M
H
Réponses
2
Affichages
1 K
Hélène
H
D
  • Question Question
Réponses
0
Affichages
2 K
Demoulin Jean-Etienne
D
S
Réponses
8
Affichages
2 K
karine
K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…