查了之前的資料，都只有設定印表機伺服器內容的紙張格式寬、高，卻沒有取得紙張格式的寬、高方法。 我試過 PDEVMODE.dmPaperLength 與 PDEVMODE.dmPaperWidth ，取得的數值都是 0。 請問有誰知道如何取得印表機伺服器內容的紙張大小以及邊界值呢？並不是取得紙張格式名稱，謝謝！

參考這篇看看: http://groups.google.com/groups?hl=zh-TW&lr=&th=910720a4cc434433&rnum=1

var 
  Device, Driver, Port: array[0..128] of char;
  PrnDC: HDC;
  hPrnMode: THandle;
  pPrnMode: PDevMode;
  papersizeMM: TPoint; {holds the current papersize in mm}
begin
  Printer.GetPrinter(Device, Driver, Port, hPrnMode);
  pPrnMode := GlobalLock(hPrnMode); 
  PrnDC := CreateDC(Driver,Device,Port,pPrnMode);
  GlobalUnlock(hPrnMode);      with papersizeMM do 
  begin
    x := GetDeviceCaps(PrnDC, HORZSIZE);
    y := GetDeviceCaps(PrnDC, VERTSIZE);
  end;      DeleteDC(PrnDC);
  Refresh;
end;

-- Well be all right. If you dont like uphill battles, you dont like living.

hagar 兄福安： 使用了您的方式測試只能取到小數一位（公厘），是否有方法能像印表機伺服器內容一樣取得小數二位呢？ 還有是否亦有取得列印報表邊界的方法呢？ 感謝您的解惑，謝謝您！

經過好久還是沒人回覆，我查了 MSDN 已經將問題解決，很感謝 hagar 兄提供資訊。     似乎大家對比較低階的 API 不是那麼的深入....。