主题：PDF报表保存

比如我有两个xls模版文件，想在同一个WebBrowser里显示，并保存在一个PDF文件里，请问是否可以

如果可以的话，怎么写这代码？

能不能帮我改一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:cdsh2.xls

代码：

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim r As Row = Tables("窗口1_Table1").Current
Dim tmp As String = ProjectPath & "Attachments\cdsh2.xls"
Dim tmp1 As String = ProjectPath & "Attachments\cdsh.xls"
Dim rpt1 As String = "d:/tpcd/"+(Tables("窗口1_Table1").Current("第三列")) + (Tables("窗口1_Table1").Current("第四列"))   +"01.xls"
Dim rpt As String = "d:/tpcd/"+(Tables("窗口1_Table1").Current("第三列")) + (Tables("窗口1_Table1").Current("第四列"))   +"清单.pdf"
If FileSys.FileExists(rpt) = False Then
    Dim Book As New XLS.Book(tmp)
    Book.Build()
    Book.SaveToPDF(rpt) '保存为pdf文件
End If
If FileSys.FileExists(rpt1) = False Then
    Dim Book1 As New XLS.Book(tmp1)
    Book1.Build()
    Book1.Save(rpt1)'保存为XLS文件
End If

wbr.AddRess = rpt

如何让她们两个表换页显示呢？

Select  e.Book.TempLate

Case "工单"
Dim xh As Row = Tables("窗口1_Table1").Current("序号")
        e.Book.Marks("是否")=iif(e.DataRow("是否")=True,"全","半")
        e.Book.Marks("部门") = DataTables("信息").Find("[_Identify] = '"& xh &"'")

End Select

BuildDetail

在生成某个细节区之前执行。

帮我看看错在哪里啊