Annuler le choix de l'imprimante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
g
grib
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 2 novembre 2016
Version d'Excel : 2007FR

Message par grib » 2 novembre 2016, 15:34

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
Avatar du membre
gelinotte
Membre dévoué
Membre dévoué
Messages : 607
Inscrit le : 29 juillet 2013
Version d'Excel : 2016

Message par gelinotte » 2 novembre 2016, 16:02

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
Google est mon ami ...
g
grib
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 2 novembre 2016
Version d'Excel : 2007FR

Message par grib » 2 novembre 2016, 16:22

Merci Beaucoup !!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message