专业报表横向打印真的不行！预览时是可以横向，但是打印出来就肯定是竖向的。
关于以下答案不用给了，都不行。
doc.AutoRotate = False '禁止自动旋转打印内容
doc.PageSetting.Landscape = True
版主或狐爸，希望先到打印机打印一份测试，再回复。查看过之前不是贴，也有人提过这个问题。
这段代码预览时横向的，但是打印室竖向的。
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Height =100
doc.PageSetting.Width =210
doc.PageSetting.Landscape =True
doc.AutoRotate = False '禁止自动旋转打印内容
Dim rx0 As New prt.RenderText '定义一个文本对象
rx0.Text="横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印"
doc.Body.Children.Add( rx0)
Doc.Preview() '预览报表
加好友 
发短信
Post By：2015/5/20 12:07:00 [显示全部帖子]
