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