[已解决]如何快速分页打印

ybs7588

请教！！！！如何按单位分页打印，不用逐个插入分页符。

最佳答案

月排行榜 / 总排行榜

rinyxa

2013-1-5 16:11

1. Sub qwp()
   
2. Dim z As Integer
   
3.    For z = 2 To Range("a65536").End(xlUp).Row
   
4.      If Range("b" & z) <> Range("b" & z + 1) Then
   
5.       ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("b" & z + 1)
   
6.      End If
   
7.    Next
   
8. End Sub

复制代码

看看这样是否合您的意

跳转到最佳答案楼层

业余爱好者

奇怪,下载不了,可以用分类汇总处理一下就行

rinyxa

1. Sub qwp()
   
2. Dim z As Integer
   
3.    For z = 2 To Range("a65536").End(xlUp).Row
   
4.      If Range("b" & z) <> Range("b" & z + 1) Then
   
5.       ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("b" & z + 1)
   
6.      End If
   
7.    Next
   
8. End Sub

复制代码

看看这样是否合您的意