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.
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