主题：窗口打印

此主题相关图片如下：qq截图20161122080959.png

为什么我在窗口表里打印，最小行数设定10，最大行数也设定10，允许分页打印，可是打印10行以下的都很漂亮，超过10行了就会变的模糊重叠。

 

此主题相关图片如下：2.png

认真测试piao据打印5遍没有问题

是不是不能增加TabControl1控件啊

Dim tb  As WinForm.TabControl = e.Form.Controls("TabControl1")
 Dim pg  As WinForm.TabPage = tb.SelectedPage
 Dim doc  As PrintDoc = e.Form.GernatePrintDoc(pg)
 doc.Preview()

还有如上代码如果是打印A4纸张，预览都是横向打印，每次都需要重新设置为纵向打印，非常不方便，能否代码改为纵向打印啊，在窗口编辑里面设置A4纵向打印没有用，不知道跟显示器高度没有A4纸张高的原因

蓝老师，第一个问题找到原因了，是因为窗口要绑定一个表，否则就会出现第一个问题，谢谢，请教第二个问题

Print是保存为其它文档打印，不方便，我改为如下还是不行，怎么样都设置都是横向的

 

e.Form.Page.PaperKind = 9 '纸张类型改为A4
e.Form.Page.Landscape = False '横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

谢谢蓝老师耐心讲解，解决了，是不能选用A4纸张，用设定纸张大小就行

非常感谢