主题：老爹,专业报表套打进退纸还不成，我爱你，加油（真的很重要，fa piao连打）

强烈顶一顶...这个非常重要..

老爹，新版这问题没解决呀。

fa piao连打如果不能解决，我们设计的软件就是不成功的。


下面这个参数设定根本无效。。。。无论怎么设置都是整体竖着出来。。

横向打印

只需将Landscape属性设为True，即可横向打印。

示例

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Landscape = True '横向打印
doc.Preview() '预览

我试了两台打印机,按你前面的代码,预览看是横向打印
另外按下面的代码,也都正常
doc.PageSetting.Width = 187
doc.PageSetting.Height = 102
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.RightMargin = 0
Doc.PageSetting.TopMargin = 0
Doc.PageSetting.BottomMargin = 0
doc.PageSetting.Landscape = True '横向打印

预览看是没错，有试过打出来吗？打出来是竖起来的。。。前面说过，所见不为所得。

我来试打看看

试打了,确实是竖着的进出

这个问题非常重要，现在机打fa piao基本上都是连体的，比如我们医院收费处，打印fa piao一张接一张，如果不解决，就算其他功能完美，那整个系统都是失败之作。

同意,帮你顶,估计贺老师还没顾到这儿呢

 

禁止自动旋转

打印报表的时候，系统默认会自动根据实际纸张的大小，判断是否需要旋转打印内容，以便更好地配合纸张。
如果不需要自动旋转打印内容，可以将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 '禁止自动旋转打印内容

加上这条,直接打印,可以做到
doc.AutoRotate = False '禁止自动旋转打印内容