HELP PLEASE!!! je cherche...je cherche... mais je ne trouve pas!!!!
Ce que je veux faire, c'est faire imprimer un webbrowser dans VB6. Voici ce que j'ai fait pour l'instant :
J'ai créé un control webbrowser nommé brwWebBrowser1.
J'ai créé un bouton nommé btnImprimer.
J'ai créé un commondialog nommé dlgcommondialog.
Voici mon code :
Private Sub btnImprimer_Click()
On Error Resume Next
Dim eQuery As OLECMDF
With dlgcommondialog
.Flags = cdlPDReturnDC + cdlPDNoPageNums
.ShowPrinter
If Err <> MSComDlg.cdlCancel Then
eQuery = brwWebBrowser1.QueryStatusWB(OLECMDID_PRINT)
If Err.Number = 0 Then
If eQuery And OLECMDF_ENABLED Then
brwWebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, "", ""
Else
MsgBox Err.Description
End If
Else
MsgBox Err.Description
End If
End If
End With
End Sub
Mais, il y a un gros problème, c'est que lorsque je clique sur le bouton imprimer, la boîte de dialogue s'affiche mais quand je clique sur le bouton imprimer de celle-ci, rien ne se produit!!!!!!
HELP PLEASE!!!!!!!
Je ne sais plus quoi faire!!!!!!