Excel 中按筛选顺序批量打印，出错，请教大神！

Excel 中按筛选顺序批量打印，出错，请教大神！！
（1）下表为原始excel表格内容：

（2）实际表格中可能有上万行数据，按单位名称一个个选择打印太麻烦了，于是在网上找了筛选代码，实现相同单位自动打印在一张A4纸上。
以上图为例，上图中表一共4个单位，表二筛选后的四个单位，则按照筛选后的4个单位打印出4张A4纸。

以下是筛选代码：

-------------上截图的代码文字版：----------------------------
Sub 分类打印()
'筛选序号
Sheets("Sheet1").Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("打印顺序").Range("A1"), Unique:=True
a = Sheets("打印顺序").[a65536].End(xlUp).Row '取得数据行数
For b = 2 To a '循环
'设置筛选条件
Sheets("打印顺序").Range("b2") = Sheets("打印顺序").Range("a" & b).Value
'高级筛选数据行
Range("A2:A65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("打印顺序").Range("B1:B2"), Unique:=False
'打印
Sheets("Sheet1").PrintOut Copies:=1 '打印指定工作表1份
Next
ActiveSheet.ShowAllData '全部显示
End Sub
------------------------------------------------------------------------
（3）一直很好用，近期出现一个小问题，就是如果单位名称大致相同则会打印在同一张纸上面。
例如上图数据，最后2张A4纸打印出来的应该是“……总部”和“总部南京分部”各打印一张纸，
可实际却是：“……总部”和“总部南京分部”直接打印在了一张纸上，且“总部南京分部”再另外打印在了一张纸上。
请教大神如果解决这个问题呢？
感激不尽！