控制ActiveReport 1.0 中的纸张大小

[jmlmj]

以下为控制代码:
Dim p1 As Variant
Dim p2 As Variant
Dim p3 As Variant

p1 = rpt.Printer.PaperSize
p2 = rpt.Printer.PaperHeight
p3 = rpt.Printer.PaperWidth

MsgBox rpt.Printer.PaperSize
MsgBox rpt.Printer.PaperHeight
MsgBox rpt.Printer.PaperWidth

rpt.Printer.PaperSize = 256
rpt.Printer.PaperHeight = p2
rpt.Printer.PaperWidth = p3

MsgBox rpt.Printer.PaperSize
MsgBox rpt.Printer.PaperHeight
MsgBox rpt.Printer.PaperWidth

显示的结果:
256
15304
11056
256
71968
720
照代码应该前三个显示与后三个显示的数值是一样但为什么会变动这么大。

[jmlmj]

?

[jmlmj]

/

[zongbing]

一定是单位不同或是打印得模式不同

[hx]

UP

[hx]

会不会是单位，不一样。