register313

¦^´_ 1# mmggmm

1. Public Sub ³øªíp1()
   
2. ActiveSheet.ResetAllPageBreaks
   
3.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
   
4.         If WorksheetFunction.IsText(Rng.Value) Then
   
5.             If Left(Rng.Value, 2) = "¤é´Á" Then
   
6.          '  If Rng.Offset(-1, 7) = 0 Then Exit For     '³o¥y¬O§@¤°»ò¥Îªº,§â¥¦µù¸Ñ±¼
   
7.            ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
   
8.                 ActiveSheet.PageSetup.PrintArea = "A1:F" & Rng.Row
   
9.                 ActiveWindow.View = xlPageBreakPreview
   
10.                
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X