Office中国论坛/Access中国论坛

标题: excel报表如何强制20行打印一页? [打印本页]

作者: gq402402 时间: 2008-3-19 15:46
标题: excel报表如何强制20行打印一页?
excel报表,有几千行,1-4行为每页页头,21行为每页页脚,能否强制分页,每20行打印成一张,不用手工加分页符,最后一页如果不满20行,则在页脚之前用空行补足20行?
file:///e:/123.bmp

[ 本帖最后由 gq402402 于 2008-3-19 17:12 编辑 ]

作者: tanhong 时间: 2008-3-19 16:43
论坛方汉兄有个现成的《手动分页工具》不知能否帮上你的忙，见下面链接地址：
http://www.office-cn.net/vvb/thread-47322-1-1.html

作者: tanhong 时间: 2008-3-19 16:48
有实例最好把数据实例发一个上来，或是发一个图上来，这样行象一点

作者: gq402402 时间: 2008-3-19 17:16
我把实例发上来,请大家帮我看看

作者: pureshadow 时间: 2008-3-19 22:47
Sub Macro1()

ActiveSheet.ResetAllPageBreaks
Dim i As Integer
For i = 22 To Range("a65536").End(xlUp).Row Step 17
Rows(i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
End Sub

作者: pureshadow 时间: 2008-3-19 23:07
用技巧的办法也是可以解决，
之前我一直觉得只能在激活单元格上方插入分页符，所以这个操作无法一次性完成。后来经高手指点，可以用以下办法：
感谢168
以下的关键在于辅助列的公式：=INT((ROW()-5)/17)+1。

[ 本帖最后由 pureshadow 于 2008-3-20 10:26 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)