主题：[求助]专业报表宽高设置与预览不一致

代码1:

Dim doc As New PrintDoc() '定义一个报表

doc.PageSetting.Width = 210 '纸张宽度

doc.PageSetting.Height = 297 '纸张高度

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = "Hello Foxtable ........" '设置文本对象的内容

doc.Body.Children.Add(rt)

doc.PageSetting.Landscape = False '纵向打印

doc.Preview() '预览报表

代码2:

Dim doc As New PrintDoc() '定义一个报表

doc.PageSetting.Width = 297 '纸张宽度

doc.PageSetting.Height = 210 '纸张高度

Dim rt As New prt.RenderText '定义一个文本对象

rt.Text = "Hello Foxtable ........" '设置文本对象的内容

doc.Body.Children.Add(rt)

doc.PageSetting.Landscape = False '纵向打印

doc.Preview() '预览报表

求解:代码2预览报表的宽度仍为210,高度仍为297,与代码1相同,如下图: