标题：打印窗体没有数据

1楼

sloyy 发表于：2025/5/13 9:52:00

我写了一段代码:
Dim pg As WinForm.TabPage '= tb.SelectedPage

pg = e.Form.Controls("TabControl3").TabPages(3)

Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)

doc.Preview()
然后发现打印窗体没有数据,这要怎么改?

图片点击可在新窗口打开查看

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

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

2楼

有点蓝 发表于：2025/5/13 9:57:00

后面那张图是打印效果？是指生产单号这些控件没有内容吗？是不是控件没有设置为可打印？

3楼

sloyy 发表于：2025/5/13 10:03:00

后面这张图是打印效果,生产单号这些控件没有内容,但是表格却有 ,控件我检查了,都是可以打印

4楼

有点蓝 发表于：2025/5/13 10:29:00

打开前，窗口控件有内容？这些控件是不是放到其它容器里了？或者不在这个tabpage里

5楼

sloyy 发表于：2025/5/13 10:30:00

屏幕上,这些控件是有内容的

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

6楼

有点蓝 发表于：2025/5/13 10:46:00

请上传实例测试

7楼

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

8楼

有点蓝 发表于：2025/5/13 11:46:00

我测试没有问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目13.zip

共8 条记录, 每页显示 10 条, 页签: [1]