Hsieh

¦^´_ 1# mmggmm

1. ActiveSheet.ResetAllPageBreaks
   
2.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
   
3.         If WorksheetFunction.IsText(Rng.Value) Then
   
4.             If Left(Rng.Value, 3) = "®Ö¼Æ­û" Then
   
5.             If Rng.Offset(-1, 7) = 0 Then Exit For
   
6.                 ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
   
7.                 ActiveSheet.PageSetup.PrintArea = "A1:J" & Rng.Row
   
8.             End If
   
9.         End If
   
10.     Next

½Æ»s¥N½X