使用FitToPageWide的Excel VBA分页符问题

Question

因此，我尝试在打印时在某些指定的行上添加pageBreaks，并且它们都与.PageSetup.Zoom设置为某个数字完美配合，但如果我使用.PageSetup.FitToPagesWide = 1并设置{{1他们被完全忽略了

这里有一小部分我的代码用于此

.PageSetup.Zoom

如果我评论FitToPagesWide并将Zoom设置为某个随机值，则分页功能完美无缺

Answer 1

试试这个：

With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$V$150"
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
End With

ActiveWindow.View = xlNormalView
ActiveSheet.Cells.PageBreak = xlPageBreakNone   ' remove all existing pagebreaks

With ActiveSheet
    .HPageBreaks.Add Before:=.Cells(50, 1)
    .HPageBreaks.Add Before:=.Cells(101, 1)
End With

背后的概念是控制变化的顺序。这样，您可以强制Excel重新计算分页符，然后您可以设置新的分页符。