//------------------------------------------------------------------------------
procedure WB_Print();
begin
Form1.WebBrowser1.ExecWB(OLECMDID_PRINT,1);
end;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure WB_PrintPreview();
begin
Form1.WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW,1);
end;
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure WB_PageSetup();
begin
Form1.WebBrowser1.ExecWB(OLECMDID_PAGESETUP,1);
end;
//------------------------------------------------------------------------------
//属性需要文档是浏览模式的才能使用
procedure WB_Property();
begin
Form1.WebBrowser1.ExecWB(OLECMDID_PROPERTIES,1);
end;
原文：http://www.cnblogs.com/xe2011/p/3876354.html