Annuler le choix de l'imprimante

Bonjour,

j'ai automatisé le choix de l'imprimante dans mon fichier avec ce code

Sub imprimer()

Cells(1, 2).Value = ActiveWorkbook.BuiltinDocumentProperties.Item(12).Value

Application.Dialogs(xlDialogPrinterSetup).Show

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Mais lors du choix de l'imprimante si je souhaite annuler l'impression, celle-ci se réalise quand même...

Pouvez-vous m'aider ?

Cordialement

Bonjour,

À tester ...

Sub imprimer()

Cells(1, 2).Value = ActiveWorkbook.BuiltinDocumentProperties.Item(12).Value

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

Gelinotte

Merci Beaucoup !!

Rechercher des sujets similaires à "annuler choix imprimante"