Imprimer le contenu d'un Webbrowser

[Infratek]

Bonjour a tous,

voila mon petit probleme. Je possede une liste de document que je peux afficher dans un objet Webbrowser au sein d'une userform. Mais j'aimerai qu'en appuyant sur un bouton "imprimer" de cette meme userform, le document s'imprime. le seul probleme c'est que je ne sais pas comment faire !

Quelqun pourrai t il m'aider ?

Merci par avance

Infratek
🙂

 

[MichelXld]

Re : Imprimer le contenu d'un Webbrowser

bonjour

tu peux essayer

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

bon apres midi
MichelXld

 

[Infratek]

Re : Imprimer le contenu d'un Webbrowser

Ya un truc que je comprend pas ca me dit que "La méthode ExecWB de l'objet IWebbrowser2 à échoué". quand j'execute ton code... une idée ?

 

[MichelXld]

Re : Imprimer le contenu d'un Webbrowser

bonsoir

tu peux tester cette adaptation . c'est pas tres élégant mais j'espere que cela fonctionnera chez toi

Dim IE As Object
Dim t As Date

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate WebBrowser1.LocationURL
    Do Until IE.ReadyState = 4
    DoEvents
    Loop

IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
t = Timer + 3: Do Until Timer > t: DoEvents: Loop

IE.Quit
Set IE = Nothing

bonne soiree
Ce lien n'existe plus

 

[Infratek]

Re : Imprimer le contenu d'un Webbrowser

malheursement, toujours la meme erreur... ca plante a ce niveau

IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER