Question

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

如果它有帮助我需要完全48页设置并且它们需要全部直接在另一个之下，使得第1页是A1：K25，第2页是A26：K50，第3页A51：K75 ......等等< / p>

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

感谢您对此事的任何帮助。

Answer 1

如果您保留页面设置，页面，调整为：设置而不是按照适合：xx页面宽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％。这可能需要根据页面方向，字体，列宽等进行调整。即使使用的打印机的品牌和型号也可以考虑。

在Excel中设置某个页面大小

1 个答案: