Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
      lpClassName As String, ByVal lpWindowName As String) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, _
        SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_PROMPTUSER)
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        ' Ist der Druckerdialog schon offen gewesen?
        If Tag = False Then
            ' Nein. Prüfen, ob er jetzt offen ist
            If FindWindow(Nothing, "Drucken") <> 0 Then
                ' Druckerdialog ist offen, speichern und Form disablen
                Tag = True
                Enabled = False
            End If
        Else
            ' Ja. Prüfen, ob er noch offen ist
            If FindWindow(Nothing, "Drucken") = 0 Then
                ' Druckerdialog ist wieder geschlossen, Timer zurücksetzen und 
                ' Form enablen
                Timer1.Stop()
                Tag = False
                Enabled = True
            End If
        End If
    End Sub

Meine Homepage: www.dartrax.de