主题：动态打印调用

Dim str As String = "A单位,8月"
If InputValue(str, "提示", "请输入:") Then
    Dim ary() As String = str.split(",")
    If ary.length = 2 Then
        Tables("表A").Filter = "第一列 = '" & ary(0) & "' and 第二列 = '" & ary(1) & "'"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\测试.xls")
        Dim fl As String = ProjectPath & "Reports\测试.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
    End If
End If

说明你没有对应的文件【Attachments\测试.xls】，注意后缀名是不是xlsx。

 

或者做个例子发上来测试下。

Dim str As String = "A单位,8月"
If InputValue(str, "提示", "请输入:") Then
    Dim ary() As String = str.split(",")
    If ary.length = 2 Then
        Dim Book As New XLS.Book(ProjectPath & "Attachments\测试.xls") '打开模板
        Dim fl As String = ProjectPath & "Reports\测试.xls"
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Sheet(3,9).Value = "<单位 = '" & ary(0) & "' and 月份 = '" & ary(1) & "'>"  '写入打印条件
        Book.Build() '生成报表
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()
    End If
End If

认认真真看6楼。不会做上传具体实例。

 

那你可以单独做一个窗口，提供单位、月份选择，最后合成条件，生成报表。

 

具体问题做例子发上来。