本示例使当前工作表显示自动分页符。
ActiveSheet.DisplayAutomaticPageBreaks = True