- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口打印 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93159)
-- 发布时间：2016/11/22 8:14:00
-- 窗口打印
此主题相关图片如下：qq截图20161122080959.png
为什么我在窗口表里打印，最小行数设定10，最大行数也设定10，允许分页打印，可是打印10行以下的都很漂亮，超过10行了就会变的模糊重叠。
此主题相关图片如下：2.png
-- 发布时间：2016/11/22 8:37:00
--
单独做一个实例发上来看看。
-- 发布时间：2016/11/22 8:40:00
--
我测试没问题。
-- 发布时间：2016/11/22 8:53:00
--
认真测试票据打印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()
-- 发布时间：2016/11/22 8:55:00
--
可以的，不过只能打印TabPage 里的第一层控件
-- 发布时间：2016/11/22 9:00:00
--
还有如上代码如果是打印A4纸张，预览都是横向打印，每次都需要重新设置为纵向打印，非常不方便，能否代码改为纵向打印啊，在窗口编辑里面设置A4纵向打印没有用，不知道跟显示器高度没有A4纸张高的原因
-- 发布时间：2016/11/22 9:12:00
--
参考：http://www.foxtable.com/webhelp/scr/1602.htm
-- 发布时间：2016/11/22 9:13:00
--
蓝老师，第一个问题找到原因了，是因为窗口要绑定一个表，否则就会出现第一个问题，谢谢，请教第二个问题
-- 发布时间：2016/11/22 9:21:00
--
你试试把 preview 直接改成 print
doc.PageSetting.Landscape = True \'横向打印
doc.Print()
-- 发布时间：2016/11/22 9:40:00
--
Print是保存为其它文档打印，不方便，我改为如下还是不行，怎么样都设置都是横向的
e.Form.Page.PaperKind = 9 \'纸张类型改为A4
e.Form.Page.Landscape = False \'横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()