以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请高手帮忙写一个禁止打印命令。谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16231)
--  作者：a9858
--  发布时间：2012/2/6 15:35:00
--  请高手帮忙写一个禁止打印命令。谢谢
请老师帮忙写一个命令，我的票据有时会重复打印，我想在打印后在按钮上加一句禁止打印命令。防止重复打印。谢谢拉
--  作者：狐狸爸爸
--  发布时间：2012/2/6 15:42:00
--  

增加一个已打印列，打印按钮：

 

if tables("xxx").Current("已打印") = False  then

   tables("xxx").Current("已打印") = true

   \'原来的打印代码

end if
--  作者：a9858
--  发布时间：2012/2/6 15:58:00
--  
谢谢狐爸，可能是我没说明白，
我的打印按钮是这样的：
DataTables("收料单").Save()
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print()
With Tables("供货商资料.收料单")
    If .Current IsNot Nothing Then
        .Current.Locked = True
nd If
End With
我想在加一句禁止打印，或者禁止点击打印按钮。
--  作者：狐狸爸爸
--  发布时间：2012/2/6 16:04:00
--  
With Tables("供货商资料.收料单")
    If .Current IsNot Nothing Then
        If .Current.locked = False
            .Current.Locked = True
            DataTables("收料单").Save()
            Dim doc As PrintDoc = e.Form.GernatePrintDoc()
            doc.Print()
        End If
    End If
    nd If
End With