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


  共有1768人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望: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)


 回到顶部