Discussion :

[Border_xls]

Bonjour,
Pour imprimer, j'utilise une petite macro excel qui ouvre une boîte de dialogue me permettant de choisir parmi les différentes imprimantes installées disponibles depuis un poste de travail. Jusque là tout fonctionne; où cela se gâte, c'est lorsque je décide d'annuler l'impression : celle-ci s'effectue quand bien même l'option "annuler" a sélectionnée...
C'est du détail, mais agaçant quand même... je n'arrive pas à trouver une solution à cette histoire.
Merci d'avance si quelqu'un pouvait faire avancer le schmilblick....


P.S. : la macro utilisée est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Imprimer()
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut , Copies:=1
End Sub

[jfontaine]

utilise l'evenement Before_print du classeur qui te permet en donnant la valeur true a cancel de ne pas imprimer la feuille

[LeForestier]

Bonjour,
Avec les 1ère éditions de XP, je me rappel qu'il était difficile d'annuler les impressions lancées, et tout simplement impossible d'arrèter une impression en cour. Pas essayé avec les dernières éditions de XP
A+

[Border_xls]

Re-bonjour,
Merci pour le tuyau, mais mes connaissances VBA sont quasiment à la hauteur du niveau de la mer... et je ne suis pas fichu de trouver la syntaxe correcte avec la solution de Jérôme... (utiliser l'évènement Before_print du classeur qui permet en donnant la valeur true a cancel de ne pas imprimer la feuille).
Quelqu'un pourrait-il me venir en aide ?
Merci d'avance !

[jfontaine]

pour ton problème essais plutot ca que ma première réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Imprimer()
Dim Bolreponse As Boolean
 
Bolreponse = Application.Dialogs(xlDialogPrinterSetup).Show
 
If Bolreponse = True Then
    ActiveWindow.SelectedSheets.PrintOut , Copies:=1
End If
 
 
End Sub

[Border_xls]

Bonjour Jérôme,
Merci beaucoup pour ton aide ! Ta macro fonctionne parfaitement !
Bonne fin de journée.
Didier