打印控件求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印控件求助

共有1808人关注过本帖树形打印复制链接主题：打印控件求助

long086

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

打印控件求助 发帖心情

Post By：2019/11/8 10:56:00 [只看该作者]

设置了一个打印窗口，里面有一个备注标签，和一个标签内容。标签内容绑定到了备注。现在想实现如果备注有内容就打印，如果没有内容，备注标签，和备注内容在窗口中都不打印，怎么实现。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/8 10:59:00 [只看该作者]

这个本来就是这样的吧。没有内容预览就是空白的

long086

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2019/11/8 15:28:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：111.jpg

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

我想实现如果备注没有内容，“备注” 这个文本标签也不打印

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/8 16:18:00 [只看该作者]

打印按钮

e.form.controls("备注控件").visible = e.form.controls("数据控件").text > ""

开始打印的代码

long086

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：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()

请问我的打印代码，这么写为什么不行，错在哪里

long086

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2019/11/8 21:42:00 [只看该作者]

打印按钮

e.form.controls("备注控件").visible = e.form.controls("数据控件").text > ""

开始打印的代码

老师，这个代码加在打印按钮上任然不行

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/8 21:53:00 [只看该作者]

Dim b1 As WinForm.Label = e.Form.Controls("备注1")
Dim b2 As WinForm.Label = e.Form.Controls("备注2")

If b2.Text > "" 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()

下一主题 >> << 上一主题

主题：打印控件求助