以下是引用狐狸爸爸在2009-8-18 16:10:00的发言：
禁止自动旋转
打印报表的时候，系统默认会自动根据实际纸张的大小，判断是否需要旋转打印内容，以便更好地配合纸张。
如果不需要自动旋转打印内容，可以将AutoRotate属性设为False。
例如：
Dim
doc As New PrintDoc
Dim ra As New prt.RenderArea
doc.PageSetting.Width = 150
doc.PageSetting.Height = 80
doc.AutoRotate = False '禁止自动旋转打印内容
ra.Width = "Parent.Width"
ra.Height = "Parent.Height"
ra.Style.Borders.All = New prt.Linedef(5, Color.Red)
doc.Body.Children.Add(ra)
doc.Print()
你可以删除下面这一行代码，重新打印一张，看看结果有什么不同:
doc.AutoRotate = False '禁止自动旋转打印内容
明天回去试试，就怕整体字体缩小。。。
加好友 
发短信
菜鸟中的老鸟
Post By：2009/8/18 20:05:00 [只看该作者]
