以文本方式查看主题

-  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=138702)
--  作者：gudao123456
--  发布时间：2019/8/3 15:42:00
--  如何在打印过的行打上标记？
我在设计打印时，想对打印过的行做个标记，如打印表A，表A中有一逻辑列“是否已打印”，如何在调用模板打印后，能在打印过的行业在“是否已打印”列填上true? 谢谢！ 打印代码如下：
Dim gzxx As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\发放名单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\发放名单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If gzxx.text=""
    MessageBox.show("请先选择要打印的学校,然后点击查询,再打印")
    Return
Else
    Sheet(5,7).Value = "<gzxx =\'" & gzxx.text & "\' and  sfydy=\'false\'>"  \'写入打印条件
End If
Book.Marks.Add("用户名",User.Name)
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
--  作者：有点蓝
--  发布时间：2019/8/3 15:57:00
--  
……
Book.Save(fl)
DataTables("表A").ReplaceFor("是否已打印",true,"gzxx =\'" & gzxx.text & "\' and  sfydy=\'false\'")
Dim Proc As New Process
Proc.File = fl
Proc.Start()
--  作者：gudao123456
--  发布时间：2019/8/3 18:12:00
--  
谢谢！