Foxtable(狐表)用户栏目专家坐堂 → 打印选定工作表


  共有2663人关注过本帖树形打印复制链接

主题:打印选定工作表

帅哥哟,离线,有人找我吗?
lxmoffice
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:123 积分:1486 威望:0 精华:0 注册:2017/2/1 10:03:00
打印选定工作表  发帖心情 Post By: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()


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/13 15:02:00 [只看该作者]

build之后,删除掉生成的报表里不需要的sheet:http://www.foxtable.com/webhelp/topics/1465.htm

 回到顶部