- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印控件求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142888)
-- 发布时间：2019/11/8 10:56:00
-- 打印控件求助
设置了一个打印窗口，里面有一个备注标签，和一个标签内容。标签内容绑定到了备注。现在想实现如果备注有内容就打印，如果没有内容，备注标签，和备注内容在窗口中都不打印，怎么实现。
-- 发布时间：2019/11/8 10:59:00
--
这个本来就是这样的吧。没有内容预览就是空白的
-- 发布时间：2019/11/8 15:28:00
--
此主题相关图片如下：111.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
我想实现如果备注没有内容，“备注” 这个文本标签也不打印
-- 发布时间：2019/11/8 16:18:00
--
打印按钮
e.form.controls("备注控件").visible = e.form.controls("数据控件").text > ""
开始打印的代码
-- 发布时间：2019/11/8 21:30:00
--
Dim b1 As WinForm.Label = e.Form.Controls("备注1")
Dim b2 As WinForm.Label = e.Form.Controls("备注2")
If b2.Text IsNot Nothing Then
b1.Printable = True
b2.Printable = True
Else
b1.Printable = False
b2.Printable = False
End If
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请问我的打印代码，这么写为什么不行，错在哪里
-- 发布时间：2019/11/8 21:42:00
--
老师，这个代码加在打印按钮上任然不行
-- 发布时间：2019/11/8 21:53:00
--
Dim b1 As WinForm.Label = e.Form.Controls("备注1") If b2.Text > "" Then Dim doc As PrintDoc = e.Form.GernatePrintDoc() |