- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 打印选定工作表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185258)
-- 发布时间：2023/2/13 14:47:00
-- 打印选定工作表
老师,
您好!
我有一个表, 因为列比较多, 我做了一个excel模板, 模板分3个工作表分别显示不同的列, 后保存为PDF, 每次保存了3页. 但当后面工作表为空白时, 相应保存的PDF页也为空白.
请问有没有办法在保存PDF时不要空白工作表?
我试了隐藏工作表,好像不起作用
Dim Filename1 As String
Dim Filename2 As String
Filename1 = "量产检测报告" & "." & "xlsx"
Filename2 = "量产检测报告" & "." & "pdf"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\" & Filename1 & "")
Dim fl As String = ProjectPath & "Reports\\" & Filename2 & ""
Book.Sheets(2).Visible = False
Book.Build() \'生成细节区
Book.SavetoPDF(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:量产检测报告.xlsx |
Proc.File = fl
Proc.Start()
-- 发布时间：2023/2/13 15:02:00
--
build之后，删除掉生成的报表里不需要的sheet:http://www.foxtable.com/webhelp/topics/1465.htm