Bene!!
Io ho provato così (utilizzando DoEvents):

codice:
    Dim Caricato As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWebBrowser1.Navigate2("c:\prova.htm")
        Caricato = False

        While Not Caricato
            Application.DoEvents() 
        End While

        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)

    End Sub

    Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
        Caricato = True
    End Sub
Comunque le due soluzioni danno lo stesso risultato.

Ciao