以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问有什么方法标记当前数据(窗口单据)是否打印过?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94936)

--  作者:bbgg945
--  发布时间:2017/1/5 17:21:00
--  请问有什么方法标记当前数据(窗口单据)是否打印过?
请问有什么方法可以标记当前的数据(窗口单据)是否打印过?
[此贴子已经被作者于2017/1/5 17:26:12编辑过]

--  作者:有点色
--  发布时间:2017/1/5 17:25:00
--  
 加一列,打印次数,每次打印过后,给这一列累加1。
--  作者:bbgg945
--  发布时间:2017/1/6 1:44:00
--  

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


--  作者:有点蓝
--  发布时间:2017/1/6 8:40:00
--  
窗口绑定的主表增加一列,比如名称是“打印次数”

打印按钮事件增加代码

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

--  作者:bbgg945
--  发布时间:2017/1/6 9:43:00
--  

谢谢有点蓝老师!

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


--  作者:有点色
--  发布时间: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)