HTML lap nyomtatása saját alkalmazásból

procedure TForm1.Button1Click(Sender: TObject);
var
  v: OleVariant;
begin
  FIE.Navigate(Edit1.Text, v, v, v, v);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  v: OleVariant;
begin
  if FIE.QueryStatusWB(OLECMDID_PRINT)=
       OLECMDF_ENABLED+OLECMDF_SUPPORTED then begin
    FIE.ExecWB(OLECMDID_PRINT, 
       OLECMDEXECOPT_DONTPROMPTUSER, v, v);
  end;
end;