增加一个已打印列,打印按钮:
if tables("xxx").Current("已打印") = False then
tables("xxx").Current("已打印") = true
'原来的打印代码
end if