如何利用VBA实现Excel自动分页

bear20060424124

现在因工作需要，要对Excel表打印，有一单元格内容为“制表人：XXX”，然后要求只要发现这一字段，就从该行向下数第三行插入一个分页符，在网上搜到一个貌似可以使用的命令，如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　ActiveSheet.ResetAllPageBreaks '删除原有的所有分页符
　　'以“小计”为参照对象，自动加入分页符
　　For i = 1 To Sheet1.UsedRange.Rows.Count
　　 If (Trim(Sheet1.Cells(i, 1).Value)) = "小计" Then
　　 ActiveSheet.HPageBreaks.Add Rows(i 1)
　　 End If
　　Next i
　　End Sub

但不知道是否有代码错误，无法使用，请高手支招，多谢！

LangQueS

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)

  [新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐:
http://club.excelhome.net/redire ... 707&ptid=184567

maomao8282

请问这种表格怎么用VBA实现分页批量打印