主题：[求助]选择不同的打印模代码出错求助

老师你好,我想设计一个针对同一个数据表,因需打印内容不同,而维护不同打印模板,在运行代码时出错,麻烦老师修改一下

1,建了一个"打印模板授权"的表,管理不同的打印模板.

2,建了一个"装箱单"的数据表,录入打印内容,根据不同的客户名称,选择(不同的内容)打印模板

3,建立不同客户的XLS打印模板

上述内容已准备完毕,在编写打印代码时遇到错误,烦请老师指点.谢谢

代码如下:

Dim path As String
Dim fl As String
For Each dr As DataRow In  DataTables("打印模板授权").sqlSelect("模板所在表名='装箱单' And  用户名='" & Tables("装箱单").current("收方全称") & "'")
    If  dr  Is Nothing  Then
        path = "Attachments\装箱单.xls"
        fl = "Reports\装箱单.xls"
    Else
        path = dr("新XLS文件路径及名称1")
        fl = dr("保存路径及名称2")
        MessageBox.show(1)
        If  path <> Nothing  And  fl <> Nothing  Then
            Dim Book As New XLS.Book(ProjectPath & path)
            Book.Build()
            Book.Save(ProjectPath & fl) '保存工作簿
            Dim Proc As New Process '打开工作簿
            Proc.File = ProjectPath & fl
            Proc.Start()
        End If
    End If
Next

此主题相关图片如下：打印模板授权表.bmp


此主题相关图片如下：装箱单表.bmp


此主题相关图片如下：xls模板文件.bmp

此主题相关图片如下：打印代码出错.bmp

谢谢老师,可以了