- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于打印出现的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71266)
-- 发布时间：2015/7/8 13:28:00
-- 关于打印出现的问题
我明明是如上图模板，但是打印结果怎么实图2？
此主题相关图片如下：2.png
此主题相关图片如下：1.png
-- 发布时间：2015/7/8 13:38:00
--
着急啊，谁给解答一下
-- 发布时间：2015/7/8 13:49:00
--
没有合并单元格吧？
一行文本都在一个单元格里，不是在合并的几个单元格里。
-- 发布时间：2015/7/8 13:53:00
--
已经合并单元格了啊，从上面那个你可以看出来吧？但是貌似不起作用，怎么回事？是不是多行内容和合并单元格有冲突？
-- 发布时间：2015/7/8 14:04:00
--
上传例子说明问题，什么情况下的事？
-- 发布时间：2015/7/8 14:13:00
--
第一个图是模板截图，第二个图是结果截图，第三个图是单元格设置截图，外部数据库不好上例子，
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
-- 发布时间：2015/7/8 14:34:00
--
我测试了一下，正常是没有你说的问题的。
上传具体例子。
-- 发布时间：2015/7/8 14:48:00
--
不可以啊，你看看吧什么情况
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:text.rar |
-- 发布时间：2015/7/8 14:57:00
--
1、模板
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:采购合同.xls |
2、代码
DataTables("采购订单").Save
DataTables("采购单明细表").Save
Dim Book As New XLS.Book(ProjectPath & "Attachments\\采购合同.xls")
Dim fl As String = ProjectPath & "Reports\\采购合同.xls"
Dim App As New MSExcel.Application
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
-- 发布时间：2015/7/8 14:59:00
--
<FooterRow>为啥得这样放？
[此贴子已经被作者于2015/7/8 15:00:15编辑过]