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

Previous Top Next

Code:

{

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

©Drkb::03482