当前位置：文江博客话题详情

当 b 列值更改时 Excel 开始新页面打印

发布于 2024-11-18 15:44:59 字数 83 浏览 1 评论 0原文

是否有任何函数或方法可以在 b 列更改时开始新页面打印？

例如，当 b 列的值从 David 更改为 Robert 时，开始一个新页面。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

山有枢 2024-11-25 15:44:59

我不确定你的意思
但是当用户更改 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

I'm not sure what you mean
but the following code will print the worksheet when user changes a cell of column 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

Edit After Comment

So this is what you need:

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

回复收藏 0 原文

~没有更多了~