[[__hector]]

Prueba esto:

procedure imprimir;
const
  OLECMDID_PRINT               = $00000006;
  OLECMDEXECOPT_PROMPTUSER     = $00000001;
begin
  WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
end;