以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]帮助中例子，合并单元格不能生成细节区，是BUG吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94627)
--  作者：黄训良
--  发布时间：2016/12/28 14:32:00
--  [求助]帮助中例子，合并单元格不能生成细节区，是BUG吗？
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
--  作者：有点色
--  发布时间：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
--  作者：黄训良
--  发布时间：2016/12/28 17:23:00
--  
谢谢，合并单元格不能生成细节区应该是个BUG!
--  作者：有点色
--  发布时间：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()