主题：请教打印方向问题

 

页面设置的代码：

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张纸

请教下是怎么回事呢？

 

此主题相关图片如下：未命名11111.jpg

不要最后一行呢？

 

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，我们检查一下。

 

 

直接打印可以，预览后怎么打印都不行