>>3
↓自分はこの辺のAPIを使ってプリンタの解像度を求めてサイズを補正してます
GetDeviceCaps(Printer.Handle, HorzRes);
GetDeviceCaps(Printer.Handle, HorzSize)
GetDeviceCaps(Printer.Handle, VertRes)
GetDeviceCaps(Printer.Handle, VertSize)
ただ、このやりかたは
Delphi2の頃作ったプレビュー用コンポーネントで使っているものなので
今はもっとスマートな方法があるかも知れませんけど