Delphi 操作 PDF -- 使用 Acrobat SDK 初探

小弟前陣子尋找用Delphi列印PDF solution,
發現Acrobat SDK 提供蠻多API可用的..
需要完整的API 可到下面網址尋找:
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 視覺化物件
  PDDoc := CreateOleObject('AcroExch.PDDoc');
  // 建立Acrobat View 非視覺化(控制)物件

  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;
  // 決定是否顯示 Acrobat View
  PageNum := PDDoc.GetNumPages;
  // Get PDF total pages
  AVDoc.PrintPagesSilent(0, PageNum, 0, 0, 0);
  // 列印特定的Page
  // 參數1, 起始頁數, 0 為第一頁
  // 參數2, 結束頁數
  showmessage('ok');
finally
  PDDoc.Close;
  //AVDoc.Close; //If PDDoc & AVDoc are constructed the same file,
  //Close PDDoc will destroy both.
  AcroApp.exit;
end;