엑셀 VBA 페이지 나누기가 엉망이 될 때

ActiveWindow.View = xlNormalView      '보기를 기본으로 전환하면 효과가 있다!!      '페이지 나누기가 엉망이 되는 효과가 사라진다!!      '이유는 모른다. 엑셀 에러로 치부하자!! ㅡㅡ;;;   Dim x As Integer, i As Integer      x = ActiveSheet.HPageBreaks.Count           For i = 1 To x                ActiveSheet.HPageBreaks(1).Delete                     '페이지 나누기 제거           Next i     With ActiveSheet.PageSetup      .FitToPagesWide = 1      .FitToPagesTall = False End With   Dim r As Long Dim rngDV As Range Dim rngR As Range     Set rngDV = Range("dv5:dv300") For r = 2 To 9      For Each rngR In rngDV           If rngR = r Then                ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=rngR                     '페이지 나누기 수동                     GoTo GtP1           End If      Next GtP1: Next   GtPend:        ActiveWindow.View = xlPageBreakPreview          '보기를 페이지 나누기 미리보기로 전환          'rngPrt.PrintOut From:=1, To:=1, Preview:=True          '출력 미리보기 창 실행          'ActiveWindow.View = xlNormalView          '보기를 기본으로 다시 전환   Range("DI1").Select