Hallo,
hilft das hier?
http://www.delphigroups.info/2/1/318312.html
Im Text ist auch noch ein weiterer Link.
Aus dem Thread
If you call GetDeviceCaps with the following values:
PHYSICALWIDTH / PHYSICALHEIGHT you get the paper's physical size (including
border).
HORZRES / VERTRES you get the paper's printable size.
PHYSICALOFFSETX / PHYSICALOFFSETY you get offset from the paper's edge to
the printable area.