XL 2010 Ne pas poursuivre l'impression en cas d'annulation

JM27 · 11 Décembre 2022

Bonjour
Je n'arrive pas à annuler l'impression en cas de clic sur le bouton annuler de la boite de dialogue
macro trouvée sur le site
merci de votre aide

job75 · 11 Décembre 2022

Bonjour JM27, le forum,

VB:

Sub ImprimerParticipants()
Sheets("ListeDesParticipantsJeunes").PageSetup.PrintArea = "$A$1:$H$" & Sheets("ListeDesParticipantsJeunes").Range("A1000").End(xlUp).Row
If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    MsgBox "impression réalisée"
End If
End Sub

A+

job75 · 11 Décembre 2022

Bonjour JM27, le forum,

VB:

Sub ImprimerParticipants()
Sheets("ListeDesParticipantsJeunes").PageSetup.PrintArea = "$A$1:$H$" & Sheets("ListeDesParticipantsJeunes").Range("A1000").End(xlUp).Row
If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    MsgBox "impression réalisée"
End If
End Sub

A+

JM27 · 11 Décembre 2022

Bonjour
merci beaucoup j'en était pas loin mais j'avais sorti le " msgbox impression réalisée " du test
Ce qui fonctionnait malgré mon message
Panne de cerveau du dimanche matin
merci encore

XL 2010 Ne pas poursuivre l'impression en cas d'annulation

JM27

XLDnaute Barbatruc

Pièces jointes

job75

job75

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Discussions similaires

XL 2010 Ne pas poursuivre l'impression en cas d'annulation

JM27

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency