以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何通过后台获取表A数据,不加载数据而进行excel报表打印?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153643)

--  作者:guosheng
--  发布时间:2020/8/18 10:25:00
--  如何通过后台获取表A数据,不加载数据而进行excel报表打印?
Dim Book As New XLS.Book(ProjectPath & "Attachments\\样式.xlsx") \'打开模板
fl= ProjectPath & "Reports\\样式.pdf"

If FileSys.DirectoryExists(ProjectPath & "Reports\\") = False Then
    FileSys.CreateDirectory(ProjectPath & "Reports\\")
End If


Dim Sheet As XLS.Sheet = Book.Sheets(0)


Book.Build() \'生成报表
Book.SaveToPDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()

--  作者:有点蓝
--  发布时间:2020/8/18 10:27:00
--  
参考:http://www.foxtable.com/webhelp/topics/3233.htm