1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim eQuery As OLECMDF 'return value type for QueryStatusWB
If Me.WebBrowser1.Busy Then
MsgBox "Chargement de la page en cours"
Exit Sub
End If
On Error Resume Next
eQuery = Me.WebBrowser1.QueryStatusWB(OLECMDID_PRINT) 'get print command status
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
Me.WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 0, 0 'Ok to Print
Else
MsgBox "La commande 'Imprimer' est désactivée."
End If
End If
If Err.Number <> 0 Then MsgBox "Erreur pendant l'impression: " & Err.Description |
Partager