delphi 13 打印相关

打印

页面设置

打印预览

文档属性

 

 

//------------------------------------------------------------------------------
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;

 

 

 

 

来自为知笔记(Wiz)