當列b更改值時Excel開始新頁面打印

Question

當列b更改時是否有任何可以啓動新頁面打印的功能或方法？

例如，隨着列b從David更改值到Robert開始一個新頁面。

Answer 1

我不知道你是什麼意思 但是當用戶更改列B的細胞

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 2 And Target.Columns.Count = 1 Then 
     ThisWorkbook.ActiveSheet.PrintOut 
    End If 
End Sub 

評論

編輯後，下面的代碼將打印工作表那麼這就是你需要：

Sub PaginateBasedOnColB() 
    Dim lngRowsCount As Long 
    Dim lngCounter As Long 

    lngRowsCount = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count 

    MsgBox lngRowsCount 

    For lngCounter = 1 To lngRowsCount 

     If ThisWorkbook.ActiveSheet.Cells(lngCounter, 2) <> _ 
      ThisWorkbook.ActiveSheet.Cells(lngCounter + 1, 2) Then 
      ThisWorkbook.ActiveSheet.HPageBreaks.Add (ThisWorkbook.ActiveSheet.Range("B" & lngCounter + 1)) 
     End If 

    Next lngCounter 
End Sub