Imprimer le contenu d'une webbrowser d'un userform en VBA Excel

[zephir94]

Bonsoir à tous,

Ayant posé la question sur un autre forum, mais n'ayant obtenu aucune réponse je propose à la communauté de celui-ci ma question.
J'ai un Userform dans lequel je charge un fichier PDF, y aurait il un moyen d'imprimer le contenu de cette webbrowser ?
Si oui lequel ?

Merci par avance pour vos aides

 

[Staple1600]

Re

@Si...
Et celle du message#7 (message de zephir94) ?

 

[Staple1600]

Re

@Si...
En investiguant un peu, j'ai pu tester (sans imprimante)
Chez moi*, ceci fonctionne

Private Sub CommandButton1_Click()
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "https://www.excel-downloads.com"
End Sub

PS: Au cas où, j'ai activé deux références;
Microsoft HTML Library
Microsoft Internet Controls

Donc en théorie si l'aperçu avant impression fonctionne logiquement l'impression devrait fonctionner, non ?

*: Windows 10 + XL 2013

 

[Si...]

Re

pas mieux* avec mon Excel 2010 !

Il en est de même avec l'instruction UWeb.PrintForm (imprimante non reconnue). Tu peux la tenter si ça te chante.

N'ayant pas désiré passer un temps fou, je me suis contenté de trouver sur la toile comment biaiser.

 

[Staple1600]

Bonsoir le fil, le forum

@Si...
Je ne sais plus quel est ton OS, mais test OK avec Excel 2010 *
(voir ci-dessous)

Private Sub CommandButton1_Click() 
'références cochées dans VBE 
'[X] Microsoft HTML Library 
'[X] Microsoft Internet Controls 
'affiche l'aperçu avant impression de IE 
'test OK sur Excel 2010 et Excel 2013 
'WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER 

'////////////////////////////////////////////////////////////////// 
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER 
'test OK sur Excel 2010, l'impression se lance directement 
'impression papier testée sur Windows 7PRO + Excel 2010 + IE11 
End Sub 
Private Sub UserForm_Initialize() 
WebBrowser1.Navigate "http://info.cern.ch/" 
End Sub

PS: *PC/Excel du boulot

 

[Si...]

Re

Merci Staple, tout rentre dans l'ordre avec Internet Explorer par défaut au lieu de Firefox (que je privilégie).

 

[Staple1600]

Re

@Si
Si tout est rentré dans l'ordre, il y a juste zephir94 qui n'est pas rentré dans le fil...
Et pourtant

Un grand merci à toi Staple1600 pour cette méthode qui va dans le sens de ce que je souhaite.
Je vais continuer mes tests et si je trouve une amélioration
ou une méthode différente, je ne me priverais pas de la poster sur ce fil.

Puisque cela fonctionne, je ne vois pas trop quels tests il restait à faire
Mystère