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

[libellule85]

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.

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

 

[Modeste]

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

Bonjour libellule85,

Essaie quelque chose comme

 doYouWantToPrint = Application.Dialogs(xlDialogPrinterSetup).Show
 If Not doYouWantToPrint Then Exit Sub

 

[job75]

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

Bonjour libellule85, Modeste,

Ou plus simplement :

If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub

A+

 

[libellule85]

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.

 

[libellule85]

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