主题：专业报表横向打印真的不行！

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)

Dim a As New System.Drawing.Printing.PrinterSettings
a.DefaultPageSettings.Landscape = True
Doc.Print(a) '打印报表