Petit problème avec une macro pour l'impression d'un tableau

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 !

libellule85

XLDnaute Accro
Bonjour le forum,

Quand j'utilise la macro ci-dessous, la boite de dialogue me demande sur quelle imprimante je veux imprimer mon tableau et si je choisis Annuler cela m'imprime quand même mon tableau !

Y aurait-il un moyen que quand on clique sur annuler cela annule effectivement et ferme la boite de dialogue sans imprimer.

D'avance merci beaucoup pour votre aide.

Code:
Sub Impression()
Dim Derligne as Long
Derligne = ThisWorkbook.Sheets("Feuil1").Range("a65536").End(xlUp).Row
Application.Dialogs(xlDialogPrinterSetup).Show
With ThisWorkbook.Sheets("Feuil1")
.PageSetup.PrintArea = "a1:l" & Derligne
With ThisWorkbook.Sheets("Feuil1").PageSetup
.Orientation = xlLandscape
'.FitToPagesWide = 1
'.FitToPagesTall = 1
'.BlackAndWhite = True
End With
.PrintOut Copies:=1
.PageSetup.PrintArea = ""
End With
End Sub
 

Pièces jointes

Re : Petit problème avec une macro pour l'impression d'un tableau

Bonjour Modeste et job75,

Merci pour vos réponses, malheureusement je ne pourrais vérifier vos réponses que mardi au travail. Je vous tiendrais au courant du résultat.
Encore une fois merci à vous deux.
 
Re : Petit problème avec une macro pour l'impression d'un tableau

Bonjour Modeste, Job75, le forum,

Comme convenu, je reviens vers vous pour vous dire que vos deux réponses fonctionnent à merveille.
Un grand grand merci à vous deux.
Bonne journée
 
- 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

Discussions similaires

Réponses
5
Affichages
936
Retour