主题：打印模板

此主题相关图片如下：@wvcog(nu7ms1g`atyvro{4.png

请问下，需要打印当前报价单编号相同的报价明细，代码如下,出现上面错误，如何解决？是我代码有问题？
Dim Book As New XLS.Book(ProjectPath & "Attachments\QuotationA客户.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\QuotationA客户.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Filter As String
With Tables("A客户Grip_Table2")
    If .current("报价单编号") Is Nothing Then
        filter = "False"
    Else
        Filter = "报价单编号 = '" & .Current("报价单编号") & "'"
    End If
End With

If filter > "" Then
    Sheet(3,19).Value = "<" & filter & ">"
Else
    Sheet(3,19).Value = "<all>"
End If
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
 

Dim fl As String = ProjectPath & "Reports\QuotationA客户.pdf"

改成

Dim fl As String = ProjectPath & "Reports\QuotationA客户.xls"

如果要转pdf，参考

http://www.foxtable.com/help/topics/2930.htm

Dim Book As New XLS.Book(ProjectPath & "Attachments\QuotationA客户.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\QuotationA客户.pdf"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Filter As String
With Tables("A客户Grip_Table2")
    If .current("报价单编号") Is Nothing Then
        filter = "False"
    Else
        Filter = "报价单编号 = '" & .Current("报价单编号") & "'"
    End If
End With

If filter > "" Then
    Sheet(3,19).Value = "<" & filter & ">"
Else
    Sheet(3,19).Value = "<all>"
End If
Book.Build() '生成报表
Book.SaveToPDF(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()