VBA批量添加分页线（为批量打印做准备）

Excel2119

VBA批量添加分页线（为批量打印做准备）

VBA批量添加分页线

1. 
   
2. Sub 分页预览_行()
   
3.    
   
4. ActiveWindow.View = xlPageBreakPreview
   
5.    
   
6.     ActiveSheet.ResetAllPageBreaks '清空分页
   
7.    
   
8.     R1 = Cells(Rows.Count, "a").End(xlUp).Row '统计行数
   
9. '    R2 = ActiveSheet.UsedRange.Rows.Count  '统计行数
   
10.    
    
11.     Rs = 5
    
12.    
    
13.     SL = Int(R1 / Rs)
    
14.    
    
15.     For i = 1 To SL
    
16.         ActiveSheet.HPageBreaks.Add Before:=Rows(Rs * i + 1) '在【分页预览】模式下的添加蓝色水平分页线
    
17.     Next
    
18. 
    
19. End Sub
    
20. 
    
21. Sub 分页预览_列()
    
22.    
    
23.     ActiveWindow.View = xlPageBreakPreview
    
24.    
    
25.     ActiveSheet.ResetAllPageBreaks '清空分页
    
26.    
    
27.     C1 = Cells(1, Columns.Count).End(xlToLeft).Column '统计列数
    
28. '    C2 = ActiveSheet.UsedRange.Columns.Count '统计列数
    
29.    
    
30.     Cs = 4
    
31.    
    
32.     SL = Int(C1 / Cs)
    
33.    
    
34.     For i = 1 To SL
    
35.         ActiveSheet.VPageBreaks.Add Before:=Columns(Cs * i + 1) '在【分页预览】模式下的添加蓝色垂直分页线
    
36.     Next
    
37. 
    
38. End Sub
    
39. 
    

复制代码

Excel2119

既然来了，就说几句呗！

morpheus126

一直搞不懂的一点就是，为什么通过控制分页符，哪怕是手动拉蓝色线，不能将个别某一页塞进特别多的内容，也就是超过了某个度还是强制转页，这个度是怎么判定的？

认真学习123456