OfficeControl使用PDFCreator另存为PDF文件
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;
                    
                
                
            
        
浙公网安备 33010602011771号