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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel报表怎么在生成复杂表头的前提上新增一行作标题在新增一行加单位呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165371)

--  作者：cnsjroom
--  发布时间：2021/5/15 16:16:00
--  excel报表怎么在生成复杂表头的前提上新增一行作标题在新增一行加单位呢？

excel报表怎么在生成复杂表头的前提上新增一行作标题在新增一行加单位呢？
下述红色代码没有发挥作用麻烦老师们指导下！谢谢！

当前代码如下：
Dim tbl As Table = Tables("党史统计表")
Dim dt1 As Table = Tables("词典")
Dim hdr As Integer = tbl.HeaderRows \'获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) \'生成表头

Dim Style As Xls.Style = Book.NewStyle \'新建一个线框样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.AlignVert=XLS.AlignVertEnum.Center
Style.FontBold = True \'字体加粗
Style.Font = New Font("仿宋", 12 , FontStyle.Bold)
Style.WordWrap=True
Dim St21 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st21.Font = New Font("仿宋", 20 , FontStyle.Bold)
St21.AlignHorz=XLS.AlignHorzEnum.Center
St21.AlignVert=XLS.AlignVertEnum.Center

Dim St2 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
St2.Format = "yyyy-MM-dd"
St2.BorderTop = XLS.LineStyleEnum.Thin
St2.BorderBottom = XLS.LineStyleEnum.Thin
St2.BorderLeft = XLS.LineStyleEnum.Thin
St2.BorderRight = XLS.LineStyleEnum.Thin
St2.BorderColorTop = Color.Black
St2.BorderColorBottom = Color.Black
St2.BorderColorLeft = Color.Black
St2.BorderColorRight = Color.Black
St2.AlignHorz=XLS.AlignHorzEnum.Center
St2.AlignVert=XLS.AlignVertEnum.Center
St2.FontBold = True \'字体加粗
St2.Font = New Font("仿宋", 12, FontStyle.Bold)
st2.WordWrap=True

For c As Integer = 0 To tbl.Cols.Count - 1
Sheet.Cols(c).Width =80
Sheet.Cols(13).Width =400
Sheet.Cols(16).Width =200
Sheet.Cols(17).Width =400
Sheet.Cols(19).Width =200
Sheet.Cols(20).Width =400
Sheet.Cols(22).Width =400
Sheet.Cols(26).Width =400
Sheet.Cols(30).Width =200
\'Sheet(0, c).Value ="党史学习教育开展情况统计表"
\'Sheet.MergeCell(0,0,1,c+1)
\'Sheet(1, 0).Value ="单位"
\'Sheet.MergeCell(1,2,1,3)
If tbl.Cols(c).Visible Then
For r As Integer = 0 To tbl.Rows.Count - 1
Sheet.Rows(0).Height = 40
Sheet.Rows(1).Height = 40
Sheet.Rows(r).Height = 30
sheet(r + hdr+2,cnt).value = tbl(r,c)
Next
cnt = cnt + 1
End If
Next
For r1 As Integer = 0 To dt1.Rows.Count - 1 \'填入数据
For c1 As Integer = 0 To tbl.Cols.Count-1
Sheet(r1+2, 13).Value = dt1.rows(r1)(0)
Sheet(r1+2, 12).Value = r1+1
Next
Next
For r2 As Integer = 0 To Sheet.rows.count-1
Sheet.Rows(0).Height = 40
Sheet.Rows(1).Height = 60
Sheet.Rows(r2).Height = 30
\'Sheet(0, 1).style=st21
For c1 As Integer = 0 To tbl.Cols.Count-1
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If
Next
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
实现效果如下：

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

[此贴子已经被作者于2021/5/15 16:19:47编辑过]

--  作者：有点蓝
--  发布时间：2021/5/15 16:30:00
--

红色代码放到for循环外面
Sheet(0, 0).Value ="党史学习教育开展情况统计表"
Sheet.MergeCell(0,0,1,30)
Sheet(1, 0).Value ="单位"
Sheet.MergeCell(1,2,1,3)
For c As Integer = 0 To tbl.Cols.Count - 1
Sheet.Cols(c).Width =80
Sheet.Cols(13).Width =400
Sheet.Cols(16).Width =200

其它单元格的所有填充操作全部从第三行开始

--  作者：cnsjroom
--  发布时间：2021/5/15 17:11:00
--  回复：（有点蓝）红色代码放到for循环外面 &nbs...

代码如下：红色部分代码用其中一个效果都是一样的没有成功显示表头麻烦老师指导下谢谢！
Dim tbl As Table = Tables("党史统计表")
Dim dt1 As Table = Tables("词典")
Dim hdr As Integer = tbl.HeaderRows \'获得表头的层数
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim Style As Xls.Style = Book.NewStyle \'新建一个线框样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.AlignVert=XLS.AlignVertEnum.Center
Style.FontBold = True \'字体加粗
Style.Font = New Font("仿宋", 12 , FontStyle.Bold)
Style.WordWrap=True
Dim St21 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st21.Font = New Font("仿宋", 20 , FontStyle.Bold)
St21.AlignHorz=XLS.AlignHorzEnum.Center
St21.AlignVert=XLS.AlignVertEnum.Center

Dim St2 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
St2.Format = "yyyy-MM-dd"
St2.BorderTop = XLS.LineStyleEnum.Thin
St2.BorderBottom = XLS.LineStyleEnum.Thin
St2.BorderLeft = XLS.LineStyleEnum.Thin
St2.BorderRight = XLS.LineStyleEnum.Thin
St2.BorderColorTop = Color.Black
St2.BorderColorBottom = Color.Black
St2.BorderColorLeft = Color.Black
St2.BorderColorRight = Color.Black
St2.AlignHorz=XLS.AlignHorzEnum.Center
St2.AlignVert=XLS.AlignVertEnum.Center
St2.FontBold = True \'字体加粗
St2.Font = New Font("仿宋", 12, FontStyle.Bold)
st2.WordWrap=True
Sheet(0, 0).Value ="党史学习教育开展情况统计表"
Sheet.MergeCell(0,0,1,32)
Sheet(1, 0).Value ="单位"
Sheet.MergeCell(1,2,1,3)
For c As Integer = 0 To tbl.Cols.Count - 1
Sheet.Cols(c).Width =80
Sheet.Cols(13).Width =400
Sheet.Cols(16).Width =200
Sheet.Cols(17).Width =400
Sheet.Cols(19).Width =200
Sheet.Cols(20).Width =400
Sheet.Cols(22).Width =400
Sheet.Cols(26).Width =400
Sheet.Cols(30).Width =200
Dim cnt As Integer = Sheet.rows.count
If tbl.Cols(c).Visible Then
For r As Integer = 0 To tbl.Rows.Count - 1
output.Show(r)
Sheet.Rows(0).Height = 40
Sheet.Rows(1).Height = 40
Sheet.Rows(2).Height = 40
Sheet.Rows(3).Height = 40
Sheet.Rows(r).Height = 30
sheet(r + hdr+2,cnt).value = tbl(r,c)
\'sheet(r + 4,cnt).value = tbl(r,c)
Next
cnt = cnt + 1
End If
Next

For r1 As Integer = 0 To dt1.Rows.Count - 1 \'填入数据
For c1 As Integer = 0 To tbl.Cols.Count-1
Sheet(r1+4, 13).Value = dt1.rows(r1)(0)
Sheet(r1+4, 12).Value = r1+1
Next
Next
For r2 As Integer = 0 To Sheet.rows.count-1
Sheet.Rows(0).Height = 40
Sheet.Rows(1).Height = 60
Sheet.Rows(r2).Height = 30
\'Sheet(0, 1).style=st21
For c1 As Integer = 0 To tbl.Cols.Count-1
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If
Next
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

运行效果如图：

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

--  作者：有点蓝
--  发布时间：2021/5/15 17:24:00
--

当前代码如下:
Dim tbl As Table = Tables("党史统计表")
Dim dt1 As Table = Tables("词典")
Dim hdr As Integer = tbl.HeaderRows \'获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) \'生成表头
Sheet.Rows.Insert(0)
Sheet.Rows.Insert(0)
Sheet(0, 0).Value ="党史学习教育开展情况统计表"
Sheet.MergeCell(0,0,1,32)
Sheet(1, 0).Value ="单位"
Sheet.MergeCell(1,2,1,3)

Dim Style As Xls.Style = Book.NewStyle \'新建一个线框样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.AlignVert=XLS.AlignVertEnum.Center
Style.FontBold = True \'字体加粗
Style.Font = New Font("仿宋", 12 , FontStyle.Bold)
Style.WordWrap=True
Dim St21 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st21.Font = New Font("仿宋", 20 , FontStyle.Bold)
St21.AlignHorz=XLS.AlignHorzEnum.Center
St21.AlignVert=XLS.AlignVertEnum.Center

Dim St2 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
St2.Format = "yyyy-MM-dd"
St2.BorderTop = XLS.LineStyleEnum.Thin
St2.BorderBottom = XLS.LineStyleEnum.Thin
St2.BorderLeft = XLS.LineStyleEnum.Thin
St2.BorderRight = XLS.LineStyleEnum.Thin
St2.BorderColorTop = Color.Black
St2.BorderColorBottom = Color.Black
St2.BorderColorLeft = Color.Black
St2.BorderColorRight = Color.Black
St2.AlignHorz=XLS.AlignHorzEnum.Center
St2.AlignVert=XLS.AlignVertEnum.Center
St2.FontBold = True \'字体加粗
St2.Font = New Font("仿宋", 12, FontStyle.Bold)
st2.WordWrap=True

Sheet
For c As Integer = 0 To tbl.Cols.Count - 1
Sheet.Cols(c).Width =80
Next
Sheet.Cols(13).Width =400
Sheet.Cols(16).Width =200
Sheet.Cols(17).Width =400
Sheet.Cols(19).Width =200
Sheet.Cols(20).Width =400
Sheet.Cols(22).Width =400
Sheet.Cols(26).Width =400
Sheet.Cols(30).Width =200
Sheet.Rows(0).Height = 40
Sheet.Rows(1).Height = 40
Sheet.Rows(2).Height = 40
Sheet.Rows(3).Height = 40
For r1 As Integer = 0 To dt1.Rows.Count - 1 \'填入数据
For c1 As Integer = 0 To tbl.Cols.Count-1
Sheet(r1+2, 13).Value = dt1.rows(r1)(0)
Sheet(r1+2, 12).Value = r1+1
Next
Next
……

--  作者：cnsjroom
--  发布时间：2021/5/15 19:31:00
--  回复：（有点蓝）当前代码如下:Dim tbl As Table = Ta...

词典表只有十八条数据下述代码运行之后会新增18+5行数据

麻烦老师看看
1、5行是空白不应出现的，不晓得是哪个位置出错了。
2、怎么实现控制表除了四行表标题外接下来只能填入20行数据（如果只有18行数据补足20行）
然后满足24行后就强制换页
3、在第24行后面新增一行作为备注栏并且备注栏也和表标题对应显示在第二页及第N页
怎么写代码固定表标题及备注栏在N页后都显示呢？

红色部分代码为时：
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If

运行效果：

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

红色部分代码为时：
If tbl.Cols(c1).IsDate
Sheet(r2+2,c1).Style = St2
Else
Sheet(r2+2,c1).Style = Style
End If

运行效果：

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

当前代码：
Dim tbl As Table = Tables("党史统计表")
Dim dt1 As Table = Tables("词典")

Dim hdr As Integer = tbl.HeaderRows \'获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Style As Xls.Style = Book.NewStyle \'新建一个线框样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Black
Style.BorderColorBottom = Color.Black
Style.BorderColorLeft = Color.Black
Style.BorderColorRight = Color.Black
Style.AlignHorz=XLS.AlignHorzEnum.Center
Style.AlignVert=XLS.AlignVertEnum.Center
Style.FontBold = True \'字体加粗
Style.Font = New Font("仿宋", 11 , FontStyle.Bold)
Style.WordWrap=True

Dim St21 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st21.Font = New Font("仿宋", 20 , FontStyle.Bold)
St21.AlignHorz=XLS.AlignHorzEnum.Center
St21.AlignVert=XLS.AlignVertEnum.Center

Dim St211 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st211.Font = New Font("仿宋", 11 , FontStyle.Bold)
St211.AlignHorz=XLS.AlignHorzEnum.Left
St211.AlignVert=XLS.AlignVertEnum.Center
Dim St2111 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
st2111.Font = New Font("仿宋", 30 , FontStyle.Bold)
St2111.AlignHorz=XLS.AlignHorzEnum.Center
St2111.AlignVert=XLS.AlignVertEnum.Center

Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet.Name="学习教育工作情况统计表"
tbl.CreateSheetHeader(Sheet) \'生成表头
Sheet.Rows.Insert(0)
Sheet.Rows.Insert(0)
Sheet(0, 0).Value ="党史学习教育暨" & """牢记殷切嘱托忠诚干净担当喜迎建党百年""" & "专题教育工作开展情况统计表"
Sheet(0, 0).Style=st2111
Sheet.MergeCell(0,0,1,32)
Sheet(1, 0).Value ="单位:"
Sheet(1, 0).Style=st211
Sheet.MergeCell(1,1,1,3)
Sheet(1, 1).Value ="xxxx"
Sheet(1, 1).Style=st211
Sheet.MergeCell(1,1,1,5)
Sheet(1, 6).Value ="填报人:"
Sheet.MergeCell(1,6,1,2)
Sheet(1, 6).Style=st211
Sheet(1, 8).Value ="xxxx"
Sheet(1, 8).Style=st211
Sheet.MergeCell(1,8,1,3)
Sheet(1, 11).Value ="联系电话:"
Sheet.MergeCell(1,11,1,2)
Sheet(1, 11).Style=st211
Sheet(1, 13).Value ="xxxxx"
Sheet(1, 13).Style=st211
Sheet(1, 19).Value ="报表时间:"
Sheet(1, 19).Style=st211
Sheet(1, 20).Value =Format(Date.today, "yyyy年MM月dd日")

Sheet(1, 20).Style=st211
Sheet(1, 22).Value ="主要领导签字:"
Sheet(1, 22).Style=st211
Sheet.MergeCell(1,22,1,4)

Sheet.Rows(24).PageBreak = True \'每页24行后强制换页
Sheet.Rows.Frozen = 4 \'冻结表前面四行

\'
Dim St2 As Xls.Style = Book.NewStyle \'新建一个时间格式化样式
St2.Format = "yyyy-MM-dd"
St2.BorderTop = XLS.LineStyleEnum.Thin
St2.BorderBottom = XLS.LineStyleEnum.Thin
St2.BorderLeft = XLS.LineStyleEnum.Thin
St2.BorderRight = XLS.LineStyleEnum.Thin
St2.BorderColorTop = Color.Black
St2.BorderColorBottom = Color.Black
St2.BorderColorLeft = Color.Black
St2.BorderColorRight = Color.Black
St2.AlignHorz=XLS.AlignHorzEnum.Center
St2.AlignVert=XLS.AlignVertEnum.Center
St2.FontBold = True \'字体加粗
St2.Font = New Font("仿宋", 12, FontStyle.Bold)
st2.WordWrap=True

For c As Integer = 0 To tbl.Cols.Count - 1
Sheet.Cols(c).Width =40
Next
Sheet.Cols(13).Width =150
Sheet.Cols(14).Width =90
Sheet.Cols(16).Width =120
Sheet.Cols(17).Width =150
Sheet.Cols(19).Width =120
Sheet.Cols(20).Width =150
Sheet.Cols(22).Width =150
Sheet.Cols(23).Width =90
Sheet.Cols(24).Width =80
Sheet.Cols(26).Width =120
Sheet.Cols(30).Width =120

For r11 As Integer = 0 To dt1.Rows.Count - 1 \'填入数据
For c11 As Integer = 0 To tbl.Cols.Count-1
Sheet(r11+4, 13).Value = dt1.rows(r11)(0)
Sheet(r11+4, 12).Value = r11+1
Next
Next
For r2 As Integer = 0 To Sheet.rows.count-1
Sheet.Rows(0).Height = 80
Sheet.Rows(1).Height = 40
Sheet.Rows(2).Height = 40
Sheet.Rows(3).Height = 80
Sheet.Rows(r2).Height = 50
For c1 As Integer = 0 To tbl.Cols.Count-1
If tbl.Cols(c1).IsDate
Sheet(r2+2,c1).Style = St2
Else
Sheet(r2+2,c1).Style = Style
End If
Next
Next

\'打印设置
With Sheet.PrintSetting
.AutoScale = True
.FitPagesAcross=1
.PaperKind = 8 \'设为A3纸
.LandScape = True \'横向打印
.MarginLeft = 20 \'左右边距设为20毫米
.MarginRight = 20
.MarginTop = 15 \'上下边距设为15毫米
.MarginBottom = 15
.Footer = "&R第&P页,总&N页"
End With

\'保存表并打开文件
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

[此贴子已经被作者于2021/5/15 22:36:09编辑过]

--  作者：cnsjroom
--  发布时间：2021/5/16 14:05:00
--  回复：（有点蓝）当前代码如下:Dim tbl As Table = Ta...
老师继续麻烦老师指导下了
当前遇到一个问题表会新增多行这个多行都是在事件登记表的总记录数之上再加了五行

此主题相关图片如下：2.png
有没有办法实现只按照事件登记表的总记录数增加行数
而且增加的行数必须是除掉了标题行和列标题行（表标题2行复杂表头2行）之外的行数等于事件登记表总记录数的行数不要额外再新增其他行
假定已经设定了20条数据之后要强制换页那么表中行数就应该是24行
如果登记表记录数为18条，那么对应的补足24行后完成24行的线框标注

--  作者：有点蓝
--  发布时间：2021/5/16 20:45:00
--

给具体的单元格设置样式，不要整列设置，整列是会所有行都有的，就是execl文件所有行的这个列都会有样式
添加换页符参考：http://www.foxtable.com/webhelp/topics/1158.htm

--  作者：cnsjroom
--  发布时间：2021/5/16 21:40:00
--  回复：（有点蓝）给具体的单元格设置样式，不要整列设...
强制换页这个已经设置好了的
老师的指导我貌似没有明白呢

当前有如下问题：
1、怎么确保标题和列标题行在换页后也显示呢?
2、
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If
标题和列标题都被画上线框

   If tbl.Cols(c1).IsDate
Sheet(r2+2,c1).Style = St2
Else
Sheet(r2+2,c1).Style = Style
End If
这个标题和列表不会画上线框但是底部会额外新增多行
这个问题有没有妥当的解决办法呢？
实现标题和列表标题不会被画上线框底部也不会额外新增无效的行数
3、表格底部是否也可以增加底部指定行数注明为填表相关说明内容该部分也随换页而和标题列标题一样显示在第二页呢？

--  作者：有点蓝
--  发布时间：2021/5/16 21:59:00
--
1、这个要使用vba控制http://www.foxtable.com/webhelp/topics/2121.htm
2、试试
Sheet.Rows(0).Height = 80
Sheet.Rows(1).Height = 40
Sheet.Rows(2).Height = 40
Sheet.Rows(3).Height = 80
For r2 As Integer = 2 To Sheet.rows.count-1
Sheet.Rows(r2).Height = 50
For c1 As Integer = 0 To tbl.Cols.Count-1
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If
Next
Next
3、在每个分页符后，添加底部内容

[此贴子已经被作者于2021/5/16 21:59:21编辑过]

--  作者：cnsjroom
--  发布时间：2021/5/16 23:00:00
--  回复：（有点蓝）1、这个要使用vba控制http://www.fox...
感谢老师的耐心指导

For r2 As Integer = 2 To Sheet.rows.count-1
Sheet.Rows(0).Height = 80
Sheet.Rows(1).Height = 40
Sheet.Rows(2).Height = 40
Sheet.Rows(3).Height = 80
Sheet.Rows(r2).Height = 50
For c1 As Integer = 0 To tbl.Cols.Count-1
If tbl.Cols(c1).IsDate
Sheet(r2,c1).Style = St2
Else
Sheet(r2,c1).Style = Style
End If
Next
Next

Sheet.Rows(27).PageBreak = True \'每页24行后强制换页
Sheet(25,0).Value="测试"
Sheet.MergeCell(25,0,1,32)
Sheet(26,0).Value="测试"
Sheet.MergeCell(26,0,1,32)
Sheet(27,0).Value="测试"
Sheet.MergeCell(27,0,1,32)
Sheet.Rows.Frozen = 4 \'冻结表前面四行

当前已经解决了表格行根据当前数据行进行对应增加行的问题和在换页符号后面增加文档底部说明问题

文档标题下一页继续显示问题怎么操作呢？
With Sheet.PrintSetting
.AutoScale = True
.FitPagesAcross=1
.PaperKind = 8 \'设为A3纸
.LandScape = True \'横向打印
.MarginLeft = 20 \'左右边距设为20毫米
.MarginRight = 20
.MarginTop = 15 \'上下边距设为15毫米
.MarginBottom = 15
.Footer = "&R第&P页,总&N页"
End With
在这个写法里面我找不到不打印指定行标题的内容

老师提供的vba代码如下：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
\'设置打印区域
.……
.PrintTitleRows = Ws.Rows(1).Address \'打印行标题(在每一页的顶部重复出现)
.PrintTitleRows = Ws.Rows(2).Address \'打印行标题(在每一页的顶部重复出现)
.PrintTitleRows = Ws.Rows(3).Address \'打印行标题(在每一页的顶部重复出现)
.PrintTitleRows = Ws.Rows(4).Address \'打印行标题(在每一页的顶部重复出现)
\'设置页面
.……
End With
App.Visible = True
Ws.PrintPreview
App.Quit

1、红色部分有没有办法变通实现在上面的sheet里面去呢？
2、红色部分想实现前面四行都在每一页顶部重复出现运行结果只有最后一个第四行体现了效果有没有办法让前面指定的四行出现在每一页的顶部呢？
3、25、26、27行是表的填写说明行有没有办法实现对应的行也在每一页的对应行数出现呢？
4、如果当前页除了四行标题外当数据不足20时，自动补充行至20行并勾画线框，这个功能怎么实现呢？特别是在换页后也要保持最少20行数据行

[此贴子已经被作者于2021/5/16 23:05:06编辑过]