Question

我在Excel工作表的不同图表之间添加了分页符，并使用VBA代码禁用了分页符显示。但在打印图表后，分页符显示在Excel工作表中。即使在VBA中打印图表后，请帮我禁用分页符显示。

我已使用此代码插入分页符并禁用分页符显示

 newch.ResetAllPageBreaks
    newch.Rows(40).PageBreak = xlPageBreakManual
    newch.Rows(71).PageBreak = xlPageBreakManual
    newch.Rows(103).PageBreak = xlPageBreakManual
    newch.Rows(135).PageBreak = xlPageBreakManual

    pageBreakcol = LastCol + 10
    alpha = Col_Letter(CInt(pageBreakcol))
    newch.Columns(alpha).PageBreak = xlPageBreakManual

    'vbreak

    ActiveWindow.View = xlPageBreakPreview
        newch.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.View = xlNormalView 

    Application.PrintCommunication = False
        With newch.PageSetup

            .CenterHorizontally = True
          .CenterVertically = True
        End With
    Application.PrintCommunication = True
    newch.DisplayPageBreaks = False

Answer 1

如果您添加自己的分页符（例如，使用HPageBreak或VPageBreak，或使用Chart.PageSetup Property），则会覆盖'ActiveSheet .DisplayPageBreaks = False'设置。

另外，来自文档：

如果添加与打印区域不相交的分页符，则新添加的HPageBreak对象将不会出现在打印区域的HPageBreaks集合中。如果调整打印区域的大小或重新定义，则集合的内容可能会更改。

^{（Source）功能}

如果您添加的分页符与打印区域不相交，则新添加的 VPageBreak 对象不会出现在 VPageBreaks 收集打印区域。如果调整打印区域的大小或重新定义，则集合的内容可能会更改。



对于自动打印区域， VPageBreaks 属性仅适用于打印区域内的分页符。



对于相同范围的用户定义打印区域， VPageBreaks 属性适用于所有分页符。

^{（Source）功能}

根据您的操作，PageSetup.PrintArea Property和FitToPages属性可能更适合。

打印后禁用Excel工作表中的分页符显示

1 个答案: