VBA分页

来源:互联网 发布:自动播放软件 编辑:程序博客网 时间:2024/05/17 00:52
 Excel.Application.ActiveSheet.Columns(28).PageBreak = 1
   Excel.Application.ActiveSheet.Columns(102).PageBreak = 1
   
   With Excel.Application.ActiveSheet
   
       recordNum = .UsedRange.Rows.Count
       
       step = 66
       
       For i = 1 To Round(recordNum / 50)
           Excel.Application.ActiveSheet.Rows(step).PageBreak = 1
           step = step + 50
       Next
   
   End With
 
原创粉丝点击