Работа с печатью в TWebBrowser

Материал из DRKB


{
  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


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 03482