删除VBA中的自动分页符
在VBA中删除自动分页符的方法如下：
- 首先，打开包含VBA代码的Excel文件。
- 打开Visual Basic编辑器，可以通过按下Alt + F11快捷键或在开发工具栏中选择“Visual Basic”按钮来打开。
- 在Visual Basic编辑器中，找到你想要删除自动分页符的工作表。
- 在该工作表的代码窗口中，找到并选择“SheetChange”事件。
- 在“SheetChange”事件的代码窗口中，输入以下代码：
Application.PrintCommunication = False
ActiveSheet.ResetAllPageBreaks
Application.PrintCommunication = True- 保存并关闭Visual Basic编辑器。
这段VBA代码的作用是关闭打印通信，然后重置活动工作表上的所有分页符，最后重新打开打印通信。这样就可以删除自动分页符。
删除自动分页符后，Excel将不再自动在打印预览中插入分页符。如果需要手动插入分页符，可以使用Excel的页面布局功能。
请注意，以上方法适用于删除VBA中的自动分页符，但不适用于删除手动插入的分页符。
关于VBA和Excel的更多信息，你可以参考腾讯云的Excel服务产品介绍页面：Excel服务。
相关·内容
3回答
无法删除VBA工程
vba、excel
我最初在一个新的工作簿中创建了两个新模块。我不小心用了“导出文件...”Visual Basic项目资源管理器中的。这将创建两个新的.bas文件。
问题是，现在我有了这两个对象，每次我尝试启动excel时，它们都会打开。这些文件似乎保存在以下目录中: C:\Users\f370830\AppData\Roaming\Microsoft\excel\XLSTART.当我尝试保存VBA对象或在其中启动它们的Excel帐簿时，excel会指向此目录。
我在此目录中看不到这些文件。我甚至使用windows资源管理器和命令行删除了该目录。但是，当我启动excel时，这些文件仍然显示在我的VBA项目资源管
浏览 2提问于2016-03-02得票数 3
回答已采纳
1回答
意外的手动分页行为。为什么excel要在错误的行上添加额外的分页/破页？
excel、vba、page-break
我在办公室里自动化了一些文书工作。在一个工作表中，我让用户输入需要有选择地复制到其他特定工作表中的数据，这些工作表将被打印出来供生产层使用。目前我的“船”工作表的格式有问题。第一个工作表是空的。预计用户将使用此页面通过手写“容器类型和编号”下列出的每个唯一的框、包和托盘从"Prep“页上的行项目(第2(+)页)中总结装箱单。
运行宏后，似乎是在我手动设置分页符的每一行之后立即添加一个额外的分页。当我处于“页面布局”视图并切换到"Ship“工作表时，我使用的当前示例数据似乎有5页长。然而，数据应该只需要2页，除了封面，总共3页。第2页和第4页似乎只有一行，滚动时迅速跳转到下一页。
浏览 0提问于2019-02-15得票数 1
回答已采纳
1回答
VBA -打印视图在一页上显示选择范围。
excel、vba、printing、view、format
我试图获得一个代码，它将自动设置在一定范围内的单元格(选定的单元格-因为它必须是动态的)的打印视图模式，并删除页码(第1页黑色叠加在单元格上)。
我尝试了以下(下面)，但是它不工作，因为它抓取所有的工作表数据，并把它放在一个页面上，而不是仅仅显示选定的范围在一页。
Dim myRange As Range
Set myRange = Selection
ActiveWindow.View = xlPageBreakPreview
myRange.Select
Application.PrintCommunication = False
With ActiveSheet.PageSetup
浏览 10提问于2021-12-24得票数 0
回答已采纳
1回答
打印与屏幕和分页符的Excel条件内容/Formatting
excel、excel-2007、conditional-formatting、vba
我在Excel中有一个VBA发布宏，它根据主配置工作表和具有数据的多个工作表生成已发布的工作簿。发布的版本是直接的数据，仍然是格式化的，但没有公式，某些注释和背景信息被隐藏。基本上，主配置包含要发布的工作表名称和范围的表。
要使已发布的版本可打印，某些工作表需要插入分页符。我意识到我可以基于相同的配置插入这些列，我还可以通过在主表中添加更多列来更改特定工作表的打印方向和页边距。
这就是棘手的部分。如果某个表在发布过程中插入了其中一些分页符，我希望在分页符之前插入一个信息行，以指示该表将在下一页继续。但我只希望它在打印版本中显示，而不是在屏幕显示中显示。
有没有办法做到这一点？
浏览 0提问于2009-07-26得票数 1
回答已采纳
2回答
Excel 2016中的VBA -在代码中设置打印机设置
excel、vba、printing
我已经搜索过互联网，但找不到确切的解决方案.我需要能够从我的VBA代码中设置打印的颜色和双工设置。
我的意图是使用VBA userform按钮格式化，然后从我的工作簿打印一个表。我的缩写代码是：
Application.PrintCommunication = False
With ws.PageSetup
.PrintArea = first & ":" & last
.PrintTitleRows = "$1:$1"
.LeftHeader = "&9&D &T"
.Ce
浏览 0提问于2018-09-20得票数 2
1回答
如何在邮件合并中抑制分页符？
excel、vba
我正在尝试使用Excel VBA在Word中创建一对多合并。在Word 2013中手动运行该进程时，表单将按预期工作。
当我尝试在Excel 2013中使用VBA进行自动化操作时，它默认为Excel电子表格中的每个新行插入分页符。
以下是代码块后面的源代码更改后的代码：
Dim cDir As String
Dim ThisFileName As String
Const WTempName = "HCCMailMerge.docx" 'This is Word Templates name
Dim NewFileName As String
NewFileName
浏览 0提问于2016-08-09得票数 0
1回答
Excel VBA:如何检测打印宽度大于打印高度
excel、vba、printing、width、area
要将打印区域自动安装到工作表内容中，我使用以下Excel2010VBA代码：
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Application.PrintCommunication = True
这很管用。另外，我想检测印刷宽度是否大于印刷高度，然后改为景观印刷。就像这样：
Application.PrintCommunication = False
Wit
浏览 2提问于2014-07-14得票数 0
1回答
Excel VBA打印到PDF每页多个工作表
excel、vba、pdf、export-to-pdf
我有一个关于Excel和VBA的问题。我想将多张图纸导出为PDF。我的代码运行得很好。我现在想做的是，在一页上合并多张工作表。由于高度和宽度的原因，将两张纸放在一起放在一页上是有意义的。如果我想用我的打印机打印它，它可以很好地使用打印机的页面布局设置。vba是否有将两个工作表放在一页上的页面布局代码？提前谢谢。
结束子对象
诚挚的问候,
Sub SavePDF()
Dim mySheets As Variant, sh
mySheets = Array("Sheet 1", "Sheet 2", "Sheet 3", "Shee
浏览 5提问于2019-01-15得票数 0
2回答
我正在处理一个excel工作簿，它有20个工作表(名为LAP1 to LAP20)，最后一个名为“摘要”的摘要工作表。
在汇总表中，有一列表示圈号，目前填写的是1到20。
如何让excel自动更新列21,22,23，...当我创建工作表LAP21，LAP22，...？
浏览 11提问于2018-08-06得票数 0
2回答
Excel VBA意外错误419 -拒绝使用对象的权限
excel、vba
我有一个Excel电子表格与VBA编程，表单activex控件，窗体控件。电子表格一直正常工作，直到上周。我想这个问题是在自动安装窗户的时候开始的，但是这可能只是巧合，因为如果这是原因的话，我并不乐观。现在，电子表格打开，立即出现一个小窗口，表示：
“-拒绝使用对象(OK，Help)”。选择帮助，最少的信息和它是无关的。选择OK，另一个窗口弹出“Visual Basic for Applications意外错误419 (OK，Help)”。
我甚至不能将工作表保存到另一个名称。VBA代码无法运行。如果我打开任何新的电子表格，Excel功能正常，也与它的VBA。在出现此问题之前，每次打开
浏览 0提问于2018-06-18得票数 0
1回答
Excel范围上的条件分页
excel、vba、page-break
希望这可以成为一个编程问题，因为我认为没有VBA我就无法做到这一点。
我有一个Excel 2016的范围，大小和内容都是固定的(x行数量)，但是如果上面有一个扩展的表，上下移动。从本质上说，这是一个在结尾的签名。
我希望避免将此范围的打印结果分割成两页，因此需要在此特定范围之前添加一个分页，以防其中一部分溢出到第2页-然后在第2页上完全打印，而不是默认情况下只打印范围的一部分。此外，不需要这个分页，除非它都适合在第1页。
我确实有一个工作代码，我可以对它进行一些增强，以便在一个范围前面手动添加分页，但这需要在用户看到某个范围部分溢出到下一页时手动启动--也许可以自动执行吗？
对可能的方法有什么
浏览 0提问于2018-12-10得票数 0
1回答
Excel VBA WorkBook_sheetchange无法运行
excel、vba
我无法使我的代码在Excel VBA (office 365)中运行。 我想让这段代码在用户或代码更改任何单元格后运行： ` Sub Workbook_SC()
Dim var1 As Double
Application.EnableEvents = False
Worksheets("GSCells").Cells(5, 4).Value = 22
Worksheets("GSCells").Cells(5, 5).GoalSeek Goal:=0, ChangingCell:=Worksheets("GSCells").Cells
浏览 42提问于2019-09-14得票数 3
回答已采纳
1回答
应用程序事件，确定Excel何时真正可以从
excel、vba、com-interop、excel-dna
我一直在考虑允许应用程序使用COM互操作或Excel与Excel链接。理想情况下，用户可以链接任何Excel工作簿，这些工作簿可能包含或不包含VBA代码。通常操作是
( i) C#写入Excel表
(二) Excel重新计算
(3)如果用户包含任何Worksheet_Change或Worksheet_Calculate事件，Excel可以选择运行VBA
(4)然后从包含来自calcs/VBA的更新数据的Excel表中读取C#。
是否有最终的应用程序事件在一切完成时通知？
例如，应用程序级别的事件包括AfterCalculate()和SheetChange，但其中一个事件或两者都可能触发，这使得
浏览 4提问于2020-03-20得票数 0
回答已采纳
1回答
excel宏在单元格中指定的行上打开
excel、macros、cell
我在单元格"B1“中指定了我的工作表需要打开的位置(=MATCH(今天)，A:a，0)。
我想自动打开该行上的excel工作表。(示例:第10行=今天)
或者我可以在VBA中使用“= can ()”函数吗？
我在VBA是个菜鸟，你能帮帮我吗？
浏览 1提问于2016-11-15得票数 0
回答已采纳
2回答
将代码动态添加到新的excel工作表
vba、excel、validation、programmatically-created
我需要一些关于VBA的帮助。在我代码中，我添加了一个excel工作表，并将其重命名并添加了一个验证列表。我需要在更改验证list.And中的值时运行一些代码，这些代码必须仅在该特定单元格发生更改时运行。如果我不清楚，请让我know.Please帮助我解决这个问题。
浏览 1提问于2013-02-26得票数 6
回答已采纳
1回答
在过去的几天里，我一直在编写一些Excel 2007 VBA代码，用于管理复杂工作表中的分页符。在经历了很多挫折之后，我刚刚解决了一个让我发疯的“跳槽”问题，我做了以下的发现，这让我想到了“为什么？”
当在分页视图中，并且鼠标被用来将手动水平分页拖到工作表的更深一步时，它将导致以前的自动分页切换到手动。如果将分页拖到up__，则不会发生这种情况；只有在将分页拖下__时才会发生这种情况。
有人能解释一下这件事的机制和原因吗？这似乎是非常不直观的，并使我一些严重的挫折感，直到我想出了一段时间前。我能理解，移动一个分页会影响那些更深的页，但是为什么上面的那个呢？
这里有一些VBA，它将建立一个演示。
浏览 0提问于2019-01-07得票数 3
回答已采纳
1回答
删除VBA中的自动分页符
vba
有人知道是否可以在Excel VBA中删除自动分页符吗？我终于找到一篇文章，上面说你不能，但我想确认一下。我对在VBA中不能做到这一点感到有点失望。 在子例程中，这段代码似乎能够删除用户插入的分页符或手动分页符，但不能删除Excel自动插入的分页符。 For nCtr = 1 To ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlUp, RegionIndex:=1
Next
For nCtr = 1 To ActiveSheet.VPageBreaks.Count
浏览 58提问于2019-02-23得票数 2
2回答
编辑Microsoft Office VBA时，如何禁用弹出的“编译错误”消息？
vba、editor
在编辑Microsoft Office VBA宏或函数时，通常会将光标从尚未完成的行移走。例如，要复制要粘贴到该行中的内容。但是，如果该部分行在语法上无效，VBA编辑器会弹出一条"Compile error“消息来中断您的工作，该消息必须被清除。
有什么方法可以禁用消息框吗？我觉得很烦人..。
( Excel Visual Basic for Applications、Outlook VBA、Word VBA等都会发生这种情况。)
浏览 0提问于2012-07-19得票数 148
回答已采纳
我有一个预定义的Excel模板，我将使用.Net C#代码填充它的数据。
我知道一些列的大小，但其中一些我不知道，所以当我将数据导出到excel中时，演示文稿看起来不太好。
此xls工作表将发送给客户。每天都会像这样产生上千个文档。每次打开一个新生成的excel文档，并通过双击该列来将列的宽度更改为自适应，这是一项繁琐的工作。
是否可以在Microsoft Excel中AutoFit某些列的大小，而不是其他一些列的大小？
浏览 2提问于2015-08-12得票数 0
1回答
application.ontime未取消或未在后台运行
excel、vba、ontime
我使用Application.Ontime命令在一段时间(10分钟)不活动后自动关闭电子表格。
下面的代码似乎可以正常工作，但是，如果您自己手动关闭工作表，工作簿似乎仍然在后台处于活动状态，并且在最后指定的“endtime”将自动打开，以便它可以自动关闭。
这在VBA代码窗口中也很明显，因为在CloseWB宏运行后，excel工作簿似乎已关闭，但它仍然列在VBA项目资源管理器窗口中。
Sub RunTime()
Static EndTime
If Not EndTime = "" Then ActiveWorkbook.Application.OnTime EndTime, &
浏览 6提问于2018-05-10得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
活动推荐
腾讯云开发者
