我用下面的代码测试:
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,我们检查一下。