以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93159)

--  作者:longyanlin
--  发布时间: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
--  
 我测试没问题。
--  作者:longyanlin
--  发布时间: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 里的第一层控件
--  作者:longyanlin
--  发布时间:2016/11/22 9:00:00
--  
还有如上代码如果是打印A4纸张,预览都是横向打印,每次都需要重新设置为纵向打印,非常不方便,能否代码改为纵向打印啊,在窗口编辑里面设置A4纵向打印没有用,不知道跟显示器高度没有A4纸张高的原因
--  作者:有点蓝
--  发布时间:2016/11/22 9:12:00
--  
参考:http://www.foxtable.com/webhelp/scr/1602.htm
--  作者:longyanlin
--  发布时间:2016/11/22 9:13:00
--  

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


--  作者:有点青
--  发布时间:2016/11/22 9:21:00
--  

 你试试把 preview 直接改成 print

 

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


--  作者:longyanlin
--  发布时间: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()