Автор: http://www.swissdelphicenter.ch

{
  TWebBrowser can use native IE API to print and do other things.
  Implement on a Form a TWebBrowser component, and a button to print.
  The code attached to this button is as follow :
}

procedure TForm.OnClickPrint(Sender: TObject);
begin
  WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
end;

You can replace "OLECMDID_PRINT" by other possibilities :

• OLECMDID_OPEN OLECMDID_NEW OLECMDID_SAVE
• OLECMDID_SAVEAS OLECMDID_SAVECOPYAS OLECMDID_PRINT
• OLECMDID_PRINTPREVIEW OLECMDID_PAGESETUP OLECMDID_SPELL
• OLECMDID_PROPERTIES OLECMDID_CUT OLECMDID_COPY
• OLECMDID_PASTE OLECMDID_PASTESPECIAL OLECMDID_UNDO
• OLECMDID_REDO OLECMDID_SELECTALL OLECMDID_CLEARSELECTION
• OLECMDID_ZOOM OLECMDID_GETZOOMRANGE OLECMDID_UPDATECOMMANDS
  
  
• OLECMDID_REFRESH OLECMDID_STOP OLECMDID_HIDETOOLBARS
• OLECMDID_SETPROGRESSMAX OLECMDID_SETPROGRESSPOS
• OLECMDID_SETPROGRESSTEXT
  
  
• OLECMDID_SETTITLE OLECMDID_SETDOWNLOADSTATE OLECMDID_STOPDOWNLOAD
• OLECMDID_FIND OLECMDID_ONTOOLBARACTIVATED OLECMDID_DELETE
• OLECMDID_HTTPEQUIV OLECMDID_ENABLE_INTERACTION OLECMDID_HTTPEQUIV_DONE
• OLECMDID_ONUNLOAD OLECMDID_PROPERTYBAG2 OLECMDID_PREREFRESH