主题：若是"打印_记账"或"打印_现金"列选择了多行，应该怎么改代码？

打印按钮，标记一下是否已经点击打印，如 vars("打印") = true

在你的代码那里，判断，如果打印了，就继续循环，否则，就退出循环，如

For Each r As Row In Tables("仓管表窗口_出库明细表").rows
    vars("打印") = False
    If r("打印_意和") = True Then
        r("出库日期") = Nothing
        r("出库编号") = Nothing
        Forms("意和打印窗口").open
    ElseIf r("打印_统正") = True Then
        r("出库日期") = Nothing
        r("出库编号") = Nothing
        Forms("统正打印窗口").open
    ElseIf r("打印_现金") = True Then
        r("出库日期") = Nothing
        r("出库编号") = Nothing
        Forms("现金打印窗口").open
    End If
    If vars("打印") = False Then
        Exit For
    End If
Next