1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.WebBrowser_V1NavigateComplete(Sender: TObject;  const pDisp: IDispatch; var URL: OleVariant);
var HTMLDoc: IHTMLDocument2;  
    HTMLWnd: IHTMLWindow2;  
    HTMLWindow3: IHTMLWindow3;
begin  HTMLDoc := (Sender as TWebBrowser).Document as IHTMLDocument2;  
       if HTMLDoc = nil then    
          raise Exception.Create('Couldn''t convert the WebBrowser to an IHTMLDocument2');  
    HTMLWnd := HTMLDoc.parentWindow;  HTMLWindow3 := HTMLWnd as IHTMLWindow3;  
    // Finally, we get to the print method  
    HTMLWindow3.print;

end;