excel报表如何强制20行打印一页?

gq402402

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

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

tanhong

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

tanhong

有实例最好把数据实例发一个上来，或是发一个图上来，这样行象一点

gq402402

我把实例发上来,请大家帮我看看

pureshadow

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

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

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