当列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