本示例使当前工作表显示自动分页符。

ActiveSheet.DisplayAutomaticPageBreaks = True