KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中为每一页打印添加边框？

作者肖阳修改日期

处理跨越数百页的大型工作表时，以清晰、专业的格式打印数据至关重要。一种有效的方法是在每页打印内容周围添加边框，使输出在视觉上层次分明、更易阅读。虽然您可以在 Excel 中手动为每页内容逐一添加边框，但面对多页文档时，这种方式既耗时又不切实际。幸运的是，Excel 提供了更高效的解决方案，可自动为每一页添加打印边框。本文将为您介绍几种实用方法，包括内置功能与替代方案，助您轻松完成这一任务。

通过设置网格线为每页打印边框

虽然 Excel 没有专门用于为每页打印内容添加边框的选项，但您可以使用打印网格线功能来模拟页面边框。此方法快捷高效，无需额外加载项！请注意，它不会生成粗体的页面轮廓——Excel 会打印所有网格线，页面边缘由最外侧的打印网格线在视觉上自然界定。

注意事项：

  • 当您的工作表采用规整的网格布局，且无需依赖厚重的自定义边框时，此方法效果最佳。
  • 如果您的工作表已使用醒目的边框来标识表格，打印时显示的网格线可能会与这些边框在视觉上产生冲突。

1. 若存在自定义边框，请先移除，以免打印时出现线条重叠或不一致。选中工作表后，依次点击开始> 边框（图标）> 无边框，即可清除所选单元格的所有边框：

点击“开始”>“边框”图标>“无边框”

2. 转到页面布局，单击页面设置对话框启动器（位于组右下角的小箭头），即可打开“页面设置”对话框：

点击“页面布局”>“页面设置”箭头

3. 在页面设置中，切换到工作表选项卡，并勾选打印部分下的网格线，即可打印所有网格线（包括页面边缘的网格线）：

在“打印”部分勾选“网格线”

4. 单击打印预览确认结果。打印时，每页将显示由最外侧打印网格线构成的清晰矩形网格边界，精准模拟页面边框效果。示例见下图：

每页周围将打印粗边框

提示：

  • 如需更粗、更醒目的边框，建议为打印区域手动添加外边框，或使用宏绘制页面轮廓。
  • 避免使用合并单元格或不规则的单元格区域，以免破坏打印网格线的视觉连续性。
  • 打印前请务必预览，确保效果符合预期。
kutools for excel ai 的截图

借助 KUTOOLS AI 解锁 Excel 的神奇功能

  • 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
  • 自定义公式：生成量身定制的公式，助您优化工作流程！
  • VBA 编码：轻松编写并运行 VBA 代码。
  • 公式解析：轻松掌握复杂公式，一目了然！
  • 文本翻译：轻松打破电子表格中的语言障碍！
借助 AI 驱动的工具提升您的 Excel 能力。立即下载，体验前所未有的高效！

使用 Kutools for Excel 一键为每页打印边框

对于希望实现更专业页面边框效果的用户（尤其在工作表格式复杂或网格线不足时），Kutools for Excel 提供了便捷解决方案：添加边框到分页符功能。只需单击一次，即可为活动工作表的每个可打印页面自动添加实线边框，省时高效，确保所有页面外观统一！

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

安装 Kutools for Excel 后，请按以下步骤操作以添加边框到分页符：

1. 激活要添加边框的工作表，然后依次点击企业 > 打印 > 添加边框到分页符。操作界面如下：
点击 Kutools for Excel 中的“为每页添加边框”功能

2. 如果弹出对话框警告继续操作将删除所有现有边框，请确保已保存工作或确认可以覆盖边框，然后单击是继续：
弹出一个对话框，警告所有现有边框将被删除

应用后，工作表的每一页都将呈现粗实清晰的边框，让打印输出井然有序、易于区分。此方法快速高效，最大限度减少手动操作。
已在工作表的每页周围添加了边框

提示与注意事项：

  • 启用此选项后，当前工作表中所有现有边框将被清除。
  • 如需保留特定边框，请先备份您的文件或工作表。
  • 此选项专为包含多个打印页面的大型工作表设计，确保页面边框始终一致且清晰可见。

使用 VBA 宏自动化为每页打印边框

如果您希望为每个可打印页面自动添加边框（尤其适用于重复性任务或自定义布局），可通过 VBA 宏读取 Excel 的分页符并绘制页面轮廓，从而完全掌控边框的样式与粗细，无需依赖任何加载项。

注意事项：

  • 该宏仅在每个可打印页面的外边缘（上、左、下、右）绘制边框，不会覆盖现有的内部单元格边框。
  • 在结构清晰的工作表上效果最佳；若存在复杂的合并单元格或非常规的打印区域，可能需要稍作微调。

操作步骤：

1. 按 Alt + F11 打开 Visual Basic for Applications 编辑器，然后点击插入> 模块 以添加新模块。

2. 将以下代码复制并粘贴到模块中：

Sub AddBorderToEachPrintablePage()
    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Dim StartRow As Long, EndRow As Long
    Dim StartCol As Long, EndCol As Long
    Dim vRowBreaks As Variant, vColBreaks As Variant
    Dim i As Long, j As Long
    Dim oldDisp As Boolean
    Dim f As Range

    Set ws = ActiveSheet

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' Check if sheet is empty
    Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                          SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
    If f Is Nothing Then GoTo CleanUp

    LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                            SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
                            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    ' Force refresh of page breaks
    oldDisp = ws.DisplayPageBreaks
    ws.DisplayPageBreaks = True

    ' Collect horizontal page breaks (add top and bottom bounds)
    vRowBreaks = Array(0)
    For i = 1 To ws.HPageBreaks.Count
        vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
    Next i
    vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))

    ' Collect vertical page breaks (add left and right bounds)
    vColBreaks = Array(0)
    For j = 1 To ws.VPageBreaks.Count
        vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
    Next j
    vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))

    ' Draw only outer borders for each printable page
    For i = 0 To UBound(vRowBreaks) - 1
        StartRow = vRowBreaks(i) + 1
        EndRow = vRowBreaks(i + 1)
        For j = 0 To UBound(vColBreaks) - 1
            StartCol = vColBreaks(j) + 1
            EndCol = vColBreaks(j + 1)

            With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
                With .Borders(xlEdgeTop)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
                With .Borders(xlEdgeRight)
                    .LineStyle = xlContinuous: .Weight = xlThick
                End With
            End With
        Next j
    Next i

CleanUp:
    ws.DisplayPageBreaks = oldDisp
    Application.EnableEvents = True
    Application.ScreenUpdating = True

    If Not f Is Nothing Then
        MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
    End If
End Sub

Function ArrayJoin(a As Variant, b As Variant) As Variant
    Dim temp() As Variant
    Dim alen As Long, blen As Long, k As Long

    alen = UBound(a) - LBound(a) + 1
    blen = UBound(b) - LBound(b) + 1
    ReDim temp(0 To alen + blen - 1)

    For k = 0 To alen - 1
        temp(k) = a(k)
    Next k
    For k = 0 To blen - 1
        temp(alen + k) = b(k)
    Next k

    ArrayJoin = temp
End Function

3. 返回 Excel，确保目标工作表处于活动状态，然后按 F5（或单击功能区中的）运行按钮）即可运行宏。该宏将自动检测分页符，并在每个可打印页面区域周围绘制粗边框。

提示：

  • 通过编辑四个 xlEdge*部分（例如将）.Weight = xlMedium 调整边框粗细，或通过 .Color 修改颜色）来定制边框样式。
  • 若已设置自定义打印区域，Excel 的分页符将严格遵循该设置；请在打印预览中立即验证效果！
  • 运行宏前，请务必保存工作簿。如需重复使用，请另存为启用宏的文件（）.xlsm）。
  • 如果未找到内容，宏将安全退出并提示用户（避免在空白工作表上出错）。

如果宏未按预期运行，请检查是否存在合并单元格、隐藏的行/列，或非常规的缩放设置（例如“调整为宽 1 页、高 N 页”）。您可通过调整打印区域或页面设置来优化页面布局，然后重新运行宏。

为每页添加边框

 

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱