打印问题(100分)

如何把纸张的实际长宽转换为计算机里面的像素长宽。

function GetPageWidth: Integer;

begin

Result := Screen.PixelsPerInch*GetDeviceCaps(Printer.Handle,
PHYSICALWIDTH) div GetPixelsPerInchX
end;


function GetPageHeight: Integer;

begin

Result := Screen.PixelsPerInch*GetDeviceCaps(Printer.Handle,
PHYSICALHEIGHT) div GetPixelsPerInchY
end;


function GetPixelsPerInchX: Integer;

begin

Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX)
end;


function GetPixelsPerInchY: Integer;

begin

Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

接受答案了.