主题：关于打印提示文件存储失败问题

你单元格的值，有空格照成的，导致找不到对应的文件

Dim dic As new Dictionary(Of String, String)
For Each r As Row In Tables("T_Report.T_Item").GetCheckedRows
    r("开单状态") = True
    r("内测标识") = True
    r.save
    Dim s As String = r("表单编号").trim
    If dic.ContainsKey(s) = False Then
        dic.add(s, r("_Identify"))
    End If
Next