Delphi - база знаний

       

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


Работа с печатью в 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 




Взято с сайта



Содержание раздела