标题：请高手帮忙写一个禁止打印命令。谢谢

请老师帮忙写一个命令，我的piao据有时会重复打印，我想在打印后在按钮上加一句禁止打印命令。防止重复打印。谢谢拉

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

 

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

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

   '原来的打印代码

end if

谢谢狐爸，可能是我没说明白，

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