excel报表怎么在生成复杂表头的前提上新增一行作标题在新增一行加单位呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、没有办法，只能另外处理

2、认真看看帮助里，有怎么引用多行的用法，给了帮助的，建议还是把帮助重头看一遍

引用整行或整行区域。

Rg = Ws.Rows("5") '引用第5行
Rg = Ws.Rows("5:6") '引用第5-6行

3、在每一个分页后面都另外添加3行说明行（25、26、27行的内容）

4、表格有多少行，和添加了多少行，都有索引可以计算的

比如dt1.Rows.Count等于15，那么就是多添加20-dt1.Rows.Count=5行空行

个人建议还是花时间看看专业报表。比上面使用的这些代码也复杂不到哪去

参照老师的帮助初步下述代码：

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\reports\test.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim Rg As MSExcel.Range = Ws.Range("A10")

With Ws.PageSetup

'设置打印区域

.PaperSize = MSExcel.XlPaperSize.xlPaperA3 '纸张大小

.PrintTitleRows = Ws.Range("1:4").Address '打印行标题(在每一页的顶部重复出现)

.Orientation = MSExcel.xlPageOrientation.xlLandscape '横向打印

For i As Integer = 5 To 100 Step 5 '每5行就分页

Ws.Rows(i).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual

Rg.Value = "Foxtable操控Excel全攻略"

End With

App.Visible = True

Ws.PrintPreview

App.Quit

运行效果如下：【a3幅面动画图可能看不大清楚】

此主题相关图片如下：动画111.gif

对应的标题行现在是可以在每一个页面都显示了

但是：

红色部分代码对应的值只在一个页面显示了

没有在每一个页面都显示是不是还需要一个遍历呢？

每5行分页为什么某些页面没有五行呢？是不是哪里出错了？

老师可否帮忙指导下怎么写？

楼上的

3、在每一个分页后面都另外添加3行说明行（25、26、27行的内容）

4、表格有多少行，和添加了多少行，都有索引可以计算的

比如dt1.Rows.Count等于15，那么就是多添加20-dt1.Rows.Count=5行空行

两个问题还是没有能够成功解决。

[此贴子已经被作者于2021/5/17 1:34:49编辑过]

请上传实例说明

项目例子已上传麻烦老师帮忙看看谢谢！
项目启动完毕后，先点启动服务，然后选择对应的fzbt1函数名称点打开页面即可运行代码生成楼上对应的效果

还有为什么会出现两次预览呢？

不大完美麻烦老师帮忙看看了

以下内容是专门发给有点蓝浏览

此主题相关图片如下：12.png

此主题相关图片如下：动画111.gif

[此贴子已经被作者于2021/5/17 11:37:20编辑过]

麻烦新建一个项目，做个内部表的项目发上来，把打印代码放到按钮里或者函数里。

两个格式都做了麻烦老师看看

此主题相关图片如下：1.png

以下内容是专门发给有点蓝浏览

下载信息 [文件大小：下载次数： ]
点击浏览该文件:服务202105170253.zip

老师我的加密狗版本4月到期了不能打开当前5.12版本的

老师是否可以直接告知一下代码呢？谢谢！

主题：excel报表 怎么在生成复杂表头的前提上新增一行作标题 在新增一行 加单位 呢？

主题：excel报表怎么在生成复杂表头的前提上新增一行作标题在新增一行加单位呢？