时间戳

首页 > 解决方案 > 在没有打印区域的 excel 中查找分页符

excel - 在没有打印区域的 excel 中查找分页符

问题描述

我想知道是否有更好的解决方案可以在 Excel 工作表中找到 PageBreak 的可能位置（行号）。如果 Print Area 越过可能的 PageBreak，就会出现分页符，如果没有，则无法知道分页符的可能位置是什么。目前我正在循环真正的单元格并为每个单元格设置打印区域并查看是否有分页符（下面的代码）。如果您激活 xlPageLayoutView Excel 有关于发生分页符的行的信息，页面在视觉上是分开的，但我不知道如何获取该信息。

Dim PBcountSTART As Integer: PBcountSTART = Sheets("sheet2").HPageBreaks.Count
Dim PBcountEND, LastPrintRowWithoutPB As Integer
Dim rng: Set rng = Sheets("sheet2").UsedRange
LastPrintRowWithoutPB = rng(rng.Rows.Count, 1).Row

Do Until PBcountSTART = PBcountEND - 1
    LastPrintRowWithoutPB = LastPrintRowWithoutPB + 1
    Sheets("sheet2").PageSetup.PrintArea = "$A$1:" & "L" & LastPrintRowWithoutPB
    PBcountEND = Sheets("sheet2").HPageBreaks.Count
Loop

标签： excelvba

解决方案

推荐阅读