请问有什么方法标记当前数据(窗口单据)是否打印过? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问有什么方法标记当前数据(窗口单据)是否打印过?

共有1923人关注过本帖树形打印复制链接主题：请问有什么方法标记当前数据(窗口单据)是否打印过?

bbgg945

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

加好友

发短信

等级：童狐帖子：247 积分：1634 威望：0 精华：0 注册：2016/7/20 15:46:00

请问有什么方法标记当前数据(窗口单据)是否打印过? 发帖心情

Post By：2017/1/5 17:21:00 [只看该作者]

请问有什么方法可以标记当前的数据(窗口单据)是否打印过?

[此贴子已经被作者于2017/1/5 17:26:12编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/5 17:25:00 [只看该作者]

加一列，打印次数，每次打印过后，给这一列累加1。

bbgg945

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

加好友

发短信

等级：童狐帖子：247 积分：1634 威望：0 精华：0 注册：2016/7/20 15:46:00

Post By：2017/1/6 1:44:00 [只看该作者]

老师!请问应该怎么做?我找了半天也搞不明白

有点蓝

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

加好友

发短信

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

Post By：2017/1/6 8:40:00 [只看该作者]

窗口绑定的主表增加一列，比如名称是“打印次数”

打印按钮事件增加代码

Tables("表C").Current("打印次数") = val(Tables("表C").Current("打印次数")) + 1

bbgg945

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

加好友

发短信

等级：童狐帖子：247 积分：1634 威望：0 精华：0 注册：2016/7/20 15:46:00

Post By：2017/1/6 9:43:00 [只看该作者]

谢谢有点蓝老师!

还请问能否在没有打印机的情况下不计数呢?

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/6 9:53:00 [只看该作者]

以下是引用bbgg945在2017/1/6 9:43:00的发言：

谢谢有点蓝老师!

还请问能否在没有打印机的情况下不计数呢?

无法准确判断是否有链接打印机的。不过你可以试试

记得引用 System.Management.dll

1、状态值

其他状态= 1,
未知,
空闲,
正在打印,
预热,
停止打印,
打印中,
离线

2、代码

Dim pname As String = DefaultPrinter

Dim printer = New System.Management.ManagementObject("win32_printer.DeviceId='" & pname & "'")
printer.Get()
Dim result = val(printer.Properties("PrinterStatus").Value)
msgbox(result)

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

主题：请问有什么方法标记当前数据(窗口单据)是否打印过?