请教﹕如何获取Excel文件用户定义的纸张尺寸大小﹖

[scott21cn]

特别是自定义纸张大小﹗

nPaperWidth := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH) div GetDeviceCaps
(Printer.Handle, LOGPIXELSX) * 254;
nPaperHeight := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT) div GetDeviceCaps
(Printer.Handle, LOGPIXELSY) * 254;

上面的写法为什么会提示﹕
Incompatible types: 'HDC' and 'QPaintDeviceH'
GetDeviceCaps后面的参数该如何带?

[bee2518]

wsheet.pagesetup.PaperSize:=PaperSizeMetrics[PaperSize];

[scott21cn]

我是要将数据输出到用户做的模板文件﹐并要进行分组处理﹐所以要抓取模板文件的纸张高度计算每页要打多少行﹐而不要设置纸张的尺寸﹗
PaperSizeMetrics[PaperSize]这个东东Delphi里没有啊﹗

[scott21cn]

nPaperHeight := GetDeviceCaps(HDC(Printer.Handle), PHYSICALHEIGHT)
用这种方式可以编译过﹐但抓出来的数值却等于0﹗

[scott21cn]

UP!