以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按键打印次数能否添加用户名  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=183959)
--  作者：denghui69986
--  发布时间：2022/11/21 9:37:00
--  按键打印次数能否添加用户名
翻了一下论坛相关贴子，发现下面一段代码可以记录打印次数，能否把用户名增加，这样能知道那个用户打印过，我试了几次没找到方法，老师指导一下，谢谢

Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
tables("打印次数表").current("次数") = tables("打印次数表").current("次数")+1
tables("打印次数表").current("表名") = "出库单"
--  作者：有点蓝
--  发布时间：2022/11/21 9:47:00
--  

tables("打印次数表").current("用户名") = user。name
--  作者：denghui69986
--  发布时间：2022/11/21 10:09:00
--  
谢谢