本文整理自网络，侵删。
Delphi 操作 PDF -- 使用 Acrobat SDK 初探
小弟前?子?ふ矣?Delphi列印PDF solution,
?l?FAcrobat SDK 提供?U多API可用的..
需要完整的API 可到下面?W址?ふ?:
Adobe Solutions Network
http://partners.adobe.com/asn/tech/pdf/acrobatsdks.jsp
以下列出??喂?例
由於小弟只?了一下, 若有??` ?各位大大指教
AcroApp,AVDoc,PDDoc: variant;
PageNum:integer;
begin
try
AcroApp := CreateOleObject('AcroExch.App');
// 建立Acrobat View application
AVDoc := CreateOleObject('AcroExch.AVDoc');
// 建立Acrobat View ??X化物件
PDDoc := CreateOleObject('AcroExch.PDDoc');
// 建立Acrobat View 非??X化(控制)物件
AVDoc.Open('D:\upload\test.pdf', 'PDF title');
// Open document
// ???1, full path
// ???2, windows title
AVDoc := AcroApp.GetActiveDoc;
// Get frontmost document
PDDoc := AVDoc.GetPDDoc;
// Get associated PDDoc
AcroApp.Show; //AcroApp.Hide;
// ?Q定是否?@示 Acrobat View
PageNum := PDDoc.GetNumPages;
// Get PDF total pages
AVDoc.PrintPagesSilent(0, PageNum, 0, 0, 0);
// 列印特定的Page
// ???1, 起始???, 0 ?榈谝豁?
// ???2, ?Y束???
showmessage('ok');
finally
PDDoc.Close;
//AVDoc.Close; //If PDDoc & AVDoc are constructed the same file,
//Close PDDoc will destroy both.
AcroApp.exit;
end; 相关阅读 >>
Delphi idhashmessagedigest md5用法
Delphi的unicode与gb2312转转换,汉字unicode转gb2312
更多相关阅读请进入《Delphi》频道 >>
