在 Excel 中设置特定的页面大小答案

【问题标题】：Setting a Certain page size in Excel在 Excel 中设置特定的页面大小
【发布时间】：2014-12-31 00:09:15
【问题描述】：

我想将工作表上的分页符设置为 11 列宽和 25 行高，无论单元格大小如何，可以这样做吗？我需要它在 Excel 2007 中工作，因为这是最终用户将使用的。但是，我的工作机器运行 excel 2010，而我的家用机器运行 excel 2013，这是我用来构建此文件的两个，因此它需要在所有版本中都可用。

如果有帮助，我需要设置 48 页，并且它们都需要直接位于另一页的下方，例如第 1 页为 A1:K25，第 2 页为 A26:K50，第 3 页为 A51:K75... 等等。

我知道我可以转到分页视图并移动蓝条，但我希望有更快的方法

感谢您在此问题上的任何帮助。

【问题讨论】：

标签： excel-2010 excel-2007 excel-2013

【解决方案1】：

如果您保留“页面设置”、“页面”、“调整到：”设置而不是遵循“适合：xx 页宽 x xx 页高”设置，那么您可以应用水平分页符。

Dim rw As Long, rws As Long, pgs As Long, lrw As Long, bColor As Boolean
rws = 25: pgs = 48: lrw = (pgs * rws)
With ActiveSheet
    .ResetAllPageBreaks
    .PageSetup.Zoom = 95
    .PageSetup.PrintArea = vbNullString
    .PageSetup.PrintArea = "$A$1:$K$" & lrw
    For rw = 1 To lrw Step rws
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=.Rows(rw + rws)
        .Cells(rw, 1) = "pg " & Int(rw / 25) + 1
        If bColor Then _
            .Cells(rw, 1).Resize(25, 11).Interior.ColorIndex = 14
        bColor = Not bColor
    Next rw
    .Cells(rw, 1).Activate
End With

我的设置中的默认列宽想将 K 列推到另一个页面上，因此我将缩放比例调整为 95%。这可能需要您根据页面方向、字体、列宽等进行调整。甚至使用的打印机的品牌和型号也会考虑在内。

【讨论】：

非常有趣。我喜欢添加颜色和页码以供参考，但我不会将它们用于我的代码。所以我删除了这些部分。以及激活单元格的最后一行。然而，垂直分页符出现在 Col I 和 J 之间，直到我将缩放调整到 250 然后它包括 Col K。我们可以不使用与 HPage Breaks 相同的代码样式并将其应用于 VPage Breaks 吗？我已经尝试过，但无法让它正常工作。我没有收到任何错误，但虚线仍在 Col I 和 J 之间。这是我尝试过的 .VPageBreaks.Add Before：=Range("L2")