엑셀 베타의 인쇄 범위

Question

인쇄 할 시트의 페이지를 알려주는 데이터를 반환하는 피벗이 있습니다. 피벗 기반 출력 VBA를 사용하여 찾고 있어요. 나는 일할 수있는 범위를 얻을 수 없습니다. 나는 뭔가를 놓친거야?

감사

Sub RectangleRoundedCorners1_Click() 

    If Range("M4").Value = 1 Then 
     Worksheets("Pivot").PageSetup.PrintArea = "A1:H35" 
     ActiveSheet.PrintOut 

     If Range("M5").Value = 2 Then Worksheets("Pivot").PageSetup.PrintArea = "A36:H71" 
      ActiveSheet.PrintOut 

      If Range("M6").Value = 3 Then 
       Range("A72:H107").PrintOut 

       If Range("M7").Value = 4 Then 
        Worksheets("Pivot").PageSetup.PrintArea = "A108:H143" 
        ActiveSheet.PrintOut 

        If Range("M8").Value = 5 Then 
         Range("A144:H179").PrintOut 

         If Range("M9").Value = 6 Then 
          Range("A180:H215").PrintOut 

          If Range("M10").Value = 7 Then 
           Range("A216:H251").PrintOut 

           If Range("M11").Value = 8 Then 
            Range("A252:H287").PrintOut 

            If Range("M12").Value = 9 Then 
             Range("A288:H323").PrintOut 

             If Range("M13").Value = 10 Then 
              Range("A324:H359").PrintOut 

              If Range("M14").Value = 11 Then 

               Range("A360:H395").PrintOut 
               If Range("M15").Value = 12 Then 

                Range("A396:H431").PrintOut 
              End If 
             End If 
            End If 
           End If 
          End If 
         End If 
        End If 
       End If 
      End If 
     End If 
    End If 
End Sub 

Answer 1

다음은 코드의 조각입니다. 나머지는 변경해야합니다.

If Range("M6").Value = 3 Then 
    Range("A72:H107").Select 
    ActiveSheet.PageSetup.PrintArea = "A72:H107" 
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True