主题：窗口打印

此主题相关图片如下：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()

可以的，不过只能打印TabPage 里的第一层控件

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

参考：http://www.foxtable.com/webhelp/scr/1602.htm

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

 你试试把 preview 直接改成 print

 

doc.PageSetting.Landscape = True '横向打印
doc.Print()

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

 

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