页面设置的代码：

Dim doc As New Printdoc
doc.PageSetting.Width = 241 \'纸张宽度为241毫米
doc.PageSetting.Height = 139  \'纸张高度139
Doc.PageSetting.TopMargin = 5 \'设置上边距
Doc.PageSetting.BottomMargin = 5 \'设置下边距
doc.AutoRotate = false

doc.PageSetting.Landscape = True
 

实际纸张是宽度：241 高度：139 ，也是按这个比例设计，打印预览正确，打印出来后，是竖起打印的，占用了2张纸

请教下是怎么回事呢？

不要最后一行呢？

Dim doc As New Printdoc
doc.PageSetting.Width = 241 \'纸张宽度为241毫米
doc.PageSetting.Height = 139 \'纸张高度139
Doc.PageSetting.TopMargin = 5 \'设置上边距
Doc.PageSetting.BottomMargin = 5 \'设置下边距
doc.AutoRotate = false

我用下面的代码测试：

Dim doc As New PrintDoc
doc.PageSetting.Width = 150
doc.PageSetting.Height = 80
doc.AutoRotate = False \'禁止自动旋转打印内容
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.Width = 40 \'宽度为40毫米
rt.Height = 20 \'宽度为40毫米
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'垂直居中
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.print()

发现如果直接打印没有问题，如果在预览窗口打印，就会出现你所说的问题。

应该是有bug，我们检查一下。