【问题标题】:.Cells.PageBreak = xlPageBreakNone error -1004 - Unable to set the pagebreak property.Cells.PageBreak = xlPageBreakNone 错误 -1004 - 无法设置分页符属性
【发布时间】:2019-02-28 21:18:09
【问题描述】:

所以我正在尝试重置文件中的所有手动分页符。好的,太好了,快速的谷歌搜索让我明白了

.Cells.PageBreak = xlPageBreakNone

太好了,让我们把它和工作表参考一起扔进去

shPrintTemp.Cells.PageBreak = xlPageBreakNone

然后去。

我运行我的代码,我得到“错误 -1004 - 无法设置分页符属性。”

奇怪。让我做更多的研究。我发现其他一些论坛帖子也有类似的问题,提出了类似的解决方案,通常人们说它有效。但是,有时有人会遇到与我相同的错误 - 并且没有发布任何解决方案。

所以我想知道“如果只是一台计算机就是一台计算机怎么办”,然后我重置了 Excel。同样的错误。重置我的电脑。同样的错误。尝试立即窗口,仍然是同样的错误。试试

 Wb.Sheets("Print temp").Cells.PageBreak = xlPageBreakNone

同样的错误。

到此为止,我已经束手无策了。

为了防止 XY 问题,我真正想要的是一种快速、干净地删除工作表中所有手动分页符的方法。 (无需核对和重新创建工作表,因为这开始听起来像是一个有吸引力的选择......)。我想这样做的方法是调试分页行,特别是因为似乎没有在线任何地方发布此问题的答案(或在网上很容易找到......)但实际上,任何方式都会对人好点。

【问题讨论】:

  • 如果您处于分页预览模式,您必须在上一行之前输入以下行以防止出错:ActiveWindow.View = xlNormalView

标签: excel vba printing


【解决方案1】:

请通过
Worksheet.ResetAllPageBreaks重置所有分页符

(您的案例shPrintTemp.ResetAllPageBreaks
Wb.Sheets("Print temp").ResetAllPageBreaks 都可以)

【讨论】:

  • 谢谢!然后我还需要添加一个 shPrintTemp.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 来修复垂直中断,以供其他人寻找答案
猜你喜欢
  • 2016-11-29
  • 2015-12-29
  • 1970-01-01
  • 1970-01-01
  • 2015-11-22
  • 1970-01-01
  • 2019-05-24
  • 2019-01-02
  • 1970-01-01
相关资源
最近更新 更多