Foxtable(狐表)用户栏目专家坐堂 → [求助]帮助中例子,合并单元格不能生成细节区,是BUG吗?


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

主题:[求助]帮助中例子,合并单元格不能生成细节区,是BUG吗?

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


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
[求助]帮助中例子,合并单元格不能生成细节区,是BUG吗?  发帖心情 Post By:2016/12/28 14:32:00 [只看该作者]

Exce表的开头两行是合并的行,保存的pdf文件中没有!
帮助中的例子:

Dim Book As New XLS.Book( "D:\会议签到表.xls")
Dim fl As String = "D:\会议签到表.pdf"
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process  '打开PDF文件
Proc.File = fl
Proc.Start()

例子用的文件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:会议签到表.xls



 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 15:15:00 [只看该作者]

 用vba处理

 

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\会议签到表.xls")
    '创建Excel文件对应的PDF文件
    wb.Saved = True
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\会议签到表.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, True,  System.Reflection.Missing.Value)
    app.quit
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
    app.quit
End try


 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2016/12/28 17:23:00 [只看该作者]

谢谢,合并单元格不能生成细节区应该是个BUG!

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/28 17:46:00 [只看该作者]

 哦,我看错了你的代码。

 

 你为什么要用build?如果要用build的话,你第一列,必须空出来作为定义区域啊。

 

Dim Book As New XLS.Book( "D:\会议签到表.xls")
Dim fl As String = "D:\会议签到表.pdf"
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process  '打开PDF文件
Proc.File = fl
Proc.Start()

 回到顶部