Annuler exécution d'impression

[degap05]

Bonjour,

La macro ci-dessous fonctionne bien, sauf que sur la forme qui s'ouvre, si l'on clique sur "Annuler", l'impression se lance quand même:

Sub Imprime()
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Quelle modification proposez-vous pour permettre l'annulation de l'action.

Merci.

 

[joss56]

Re : Annuler exécution d'impression

Bonjour,

Comme ça peut-être:
Sub Imprime()
imp=msgbox("Lancer l'impression?",vbYesNo,"Impression")
if imp=vbNo then exit sub
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Jocelyn

 

[degap05]

Re : Annuler exécution d'impression

Bonjour Joss56,
Je viens de trouver:

Sub Imprimer()
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub


Merci.

A+