以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印窗体没有数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196557)
|
-- 作者:sloyy
-- 发布时间:2025/5/13 9:52:00
-- 打印窗体没有数据
我写了一段代码: Dim pg As WinForm.TabPage \'= tb.SelectedPagepg = e.Form.Controls("TabControl3").TabPages(3) Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg) doc.Preview() 然后发现打印窗体没有数据,这要怎么改?
此主题相关图片如下:2.png

此主题相关图片如下:3.png

|
-- 作者:有点蓝
-- 发布时间:2025/5/13 9:57:00
--
后面那张图是打印效果?是指生产单号这些控件没有内容吗?是不是控件没有设置为可打印?
|
-- 作者:sloyy
-- 发布时间:2025/5/13 10:03:00
--
后面这张图是打印效果,生产单号这些控件没有内容,但是表格却有 ,控件我检查了,都是可以打印
|
-- 作者:有点蓝
-- 发布时间:2025/5/13 10:29:00
--
打开前,窗口控件有内容?这些控件是不是放到其它容器里了?或者不在这个tabpage里
|
-- 作者:sloyy
-- 发布时间:2025/5/13 10:30:00
--
屏幕上,这些控件是有内容的 此主题相关图片如下:4.png 
|
-- 作者:有点蓝
-- 发布时间:2025/5/13 10:46:00
--
请上传实例测试
|
-- 作者:sloyy
-- 发布时间:2025/5/13 11:16:00
--
似乎是控件没有焦点就不能打印,我只改了一句,先强制显示选择页面,就能打印出来了,但是必须暴露隐藏的页面,不是我想要的效果
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl3") tb.SelectedIndex=3 Dim pg As WinForm.TabPage = tb.SelectedPage Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg) doc.Preview()
此主题相关图片如下:5.png

|
-- 作者:有点蓝
-- 发布时间:2025/5/13 11:46:00
--
我测试没有问题
|