Excel打印条件内容/格式与屏幕和分页符

首先,插入一行并将其隐藏在分页符之前。然后,您可以使用 BeforePrint 事件在工作簿中查找包含“请参阅下一页”文本的所有行,然后取消隐藏。

Sub Workbook_BeforePrint(cancel as Boolean)
    Dim rngCell as Range
    set rngCell = ActiveSheet.UsedRange.Find("See Next Page")

    while not rngCell is Nothing
        if not rngCell is Nothing then
            rngCell.EntireRow.Hidden = false
        end if
        set rngCell = ActiveSheet.UsedRange.FindNext()
    loop
End Sub

如果你需要去的话,这会让你有所收获,但是,这会让你容易受到问题的影响,事实上没有 AfterPrint . 所以,你可以做的是:

Sub Workbook_BeforePrint(cancel as Boolean)
    Application.EnableEvents = false

    'Unhide rows here

    if cancel then
        Workbook.PrintPreview()
    else
        Workbook.PrintOut()
    end if

    'Rehide rows here

    Application.EnableEvents = True
End Sub

注意 cancel 基本上会告诉您它是打印预览还是实际的打印命令。我想这是非常好的。