摆脱不必要的分页符

Question

我正在尝试将分页符添加到excel工作表中，但是很难使分页符到达我想要的位置，或更准确地说，是不要到达我不希望使用的位置。

我希望代码在“ x”列的左侧插入一个分页符，其中x是先前定义的变量（本例中为7）。我可以使第x列的分页符正常工作，但是另一个分页符（蓝色虚线）一直显示在第6列的左侧，而另一个分页符（蓝色的实线）仍在第8列的左侧。

我用来添加分页符的方法是：

Worksheets("BASE 2").VPageBreaks.Add Before:=Worksheets("BASE 2").Columns(x)
ActiveWindow.View = xlPageBreakPreview

如果我只运行ActiveWindow.View = xlPageBreakPreview部分，则仍然会出现两个不正确的分页符（在第6列和第8列之前），并且当我仅使用Worksheets("BASE 2").VPageBreaks.Add Before:=Worksheets("BASE 2").Columns(x)部分运行代码时，也会发生相同的情况

如果有人对为什么会发生这种情况有任何见解，我将不胜感激。

Answer 1

对于以后遇到类似问题的任何人。

excel在多余的虚线分页符中添加的原因是我要打印的部分太大，无法在一张纸上打印。我最初尝试使用Worksheets("Sheet1").PageSetup.Zoom = 50打印一个列的总宽度为300且放大50％的部分。

为解决此问题，我将列宽设置为290，缩放比例设置为40，并且蓝色虚线停止显示。