Gérer une impressionRésolu

Question

Bonjour &#224; tous,
Voici un code que j'utilise pour imprimer une Form dans une application : 

Private Sub cmdPrintRdV_Click()
On Error Resume Next
Load frmAper&#231;u
cmnDial.ShowPrinter
Printer.PrintQuality = -1
Printer.CurrentX = 2000
Printer.CurrentY = 1000
cmnDial.CancelError = True
frmAper&#231;u.PrintForm
Unload frmAper&#231;u
End Sub

frmAper&#231;u, c'est le Form que je voudrais imprimer
cmnDial, c'est le nom que je donne au contr&#244;le Bo&#238;te de dialogue commune
Le reste vous devez comprendre.

Le probl&#232;me qui se pose c'est que lorsque la bo&#238;te de dialogue Impression s'affiche et que 
je clique sur le bouton Annuler, l'impression est quand m&#234;me lanc&#233;e. Comment faire pour 
ne pas la lancer dans ce cas l&#224; ?

[font=Comic Sans MS]Ne rien dire pour nuire, ne rien taire pour plaire.../font

metalcoder · Accepted Answer

Met ca

On Error Resume Next
Load frmAper&#231;u
cmndial.CancelError = True
cmndial.ShowPrinter
If err = cdlCancel Then
            MsgBox "Impression Annul&#233;e", vbOKOnly, "Erreur"
            Exit Sub
End If
Printer.PrintQuality = -1
Printer.CurrentX = 2000
Printer.CurrentY = 1000
frmAper&#231;u.PrintForm
Unload frmAper&#231;u

@++

Metalcoder

Paulo2901 · Answer

Bonsoir Metalcoder. 
Je viens de tester ton code. Il fonctionne comme je veux. Merci beaucoup.
A+

Ne rien dire pour nuire, ne rien taire pour plaire...

Gérer une impression

2 réponses

Discussions similaires