WebBrowser

Bonjour Jacques,
Jacques a écrit :

Bonjour,

J'ouvre un WebBrowser (wbReport) comme suit :

wbReport.ExecWB OLECMDID_PRINTPREVIEW, 0, Null, Null


La page "Aperçu" s'ouvre avec un zoom de 70% .
Est-il possible de définir (modifier) le pourcentage?
Si, oui ... comment :-)

Je n'aime pas trop utiliser SendKeys, mais je n'ai pas mieux pour
l'instant (Alt+ et Alt- augmente ou diminue le Zoom) :

Private Sub Command1_Click()
Me.WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, 0, Null, Null
On Error Resume Next
Do
Err.Clear
AppActivate "Aperçu avant impression"
DoEvents
Loop While Err.Number <> 0
Timer1.Interval = 1000 ' A ajuster
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
SendKeys "%{+}"
Me.Timer1.Enabled = False
End Sub


--
Cordialement,

Jacques.