Mega Code Archive

 

Categories / Delphi / Printing

 

Implement print-page setup-etc with twebbrowser

{ 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