excel vba中的打印範圍

我有一個數據透視表，它返回數據以讓我知道需要打印的表單中的頁面。我正在考慮使用VBA來根據數據透視表輸出。我無法讓範圍工作。我錯過了什麼？excel 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

來源

2017-09-19 Robert Hellen

請格式化您的代碼。 – Fruchtzwerg

這裏的代碼片段。你必須改變其餘的。

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

來源

2017-09-19 17:08:34 DaBeau96

謝謝你的明星 –

excel vba中的打印範圍

回答

相關問題