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


  共有2756人关注过本帖平板打印复制链接

主题:打印选定工作表

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


加好友 发短信
等级:幼狐 帖子:123 积分:1492 威望: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()


 回到顶部