如果您在处理客户的Excel资料，并且，数据量非常大，针对这个的一个问题，如何才能让相同名称的客户的内容自动分页打印出来呢？
先看下表：
认真看上图，第一第二行是重复的标题行，这个可以通过“页面设置”来设置。
现在看客户名称，张三、李四、马六、王五等，每个客户的数据都有多条。现在，我们如何才能做到，同一张工作表的数据中，相同客户名称的数据自动分开来打印到纸张上呢？即，只要名称相同的客户，就一起打印到纸张上，不能和其它客户的一起混打到纸张上。
由于每个客户的数据多，并且，客户的数量也相当多，我们不可能分别设置打印区域来打印，要解决这个问题，得使用VBA来实现。
本文的所讲述的代码功能是，针对工作薄中的所有工作表，只要客户名称相同的，自动分页自动打印。
实现方法如下：
右键点击Sheet1，在弹出的菜单中选择“查看代码”，弹出VBA代码窗口。
然后，右键点击“ThisWorkbook”，同样选择“查看代码”，如此，就会看到一个输入代码的小窗口。如下图！
啥也别说了，直接按上图，输入完整代码即可。
为方便您的学习，下面俺将代码粘贴如下：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim MyName As String
MyName = ""
ActiveSheet.ResetAllPageBreaks '删除原有的所有分页符
For j = 1 To Worksheets.Count
For i = 3 To Sheets(j).UsedRange.Rows.Count
MyName = Trim(Sheets(j).Cells(i, 1).Value)
If MyName <> Trim(Sheets(j).Cells(i - 1, 1).Value) Then
Sheets(j).HPageBreaks.Add Rows(i)
End If
Next i
Sheets(j).HPageBreaks.Add Rows(Sheets(j).UsedRange.Rows.Count + 1)
Next j
End Sub
代码解释：
Workbook_SheetSelectionChange，指的是工作薄工作表的代码事件，SheetSelectionChange单元格的选择发生改变就运行代码。
For j = 1 To Worksheets.Count，代码功能针对所有工作表。
For i = 3 To Sheets(j).UsedRange.Rows.Count，每个工作表从第三行开始是客户名称。