OfficeControl使用PDFCreator另存为PDF文件

Posted 2020-09-14 舟山渔夫

procedure TForm3.btnSavePdfClick(Sender: TObject);
begin
{参数：
名称 必选/可选 数据类型 说明
FileName 必选 string 另存为PDF的文件名
PromptSelect 可选 bool 是否提示用户选择
SheetName 可选 string EXCEL工作表名称
IsShowMsg 可选 bool 保存成功是否显示提示
IsUseSecurity 可选 bool 是否对PDF文件使用安全特性
OwnerPass 可选 string PDF文件的所有者口令
IsPermitPrint 可选 bool PDF文件是否可以被打印
IsPermitCopy 可选 bool PDF文件是否可以被拷贝文本
}
  if OfficeControl1.IsPDFCreatorInstalled then begin
    if saveDialog1.Execute then
      OfficeControl1.SaveAsPDFFile(savedialog1.FileName, false, ‘‘, false, false, ‘‘, true, true);
  end else
    showmessage(‘is not install pdfcreator‘);
  end;

end;