首先,你需要使用 HPageBreaks 对象来设置横向分页 。具体操作如下:
打开 Excel 文件,在菜单栏上点击“开发工具” 。
选择要操作的工作表,右键选择“插入”-“模块”,创建一个新的 VBA 模块 。
在模块中编写代码,例如:
Sub SetPageBreaks() ActiveSheet.ResetAllPageBreaks ActiveSheet.HPageBreaks.Add Before:=Range("B2") ActiveSheet.HPageBreaks.Add Before:=Range("E2") ActiveSheet.PageSetup.PrintArea = Range("A1:M45").AddressEnd Sub这个代码会把当前工作表的横向页面分割线设置在 B2 和 E2 单元格之前,同时还设置了打印区域为 A1 到 M45 的单元格区域 。
接下来,可以使用 HScrollBar 对象来增加水平滚动条的功能 。具体操作如下:
在窗口上方的下拉框中选择“Worksheet”,然后在右边的下拉框中选择“Change”事件 。
在代码窗口中输入以下代码:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then ActiveWindow.ScrollColumn = Target.Column End IfEnd Sub【小白学习vba应该怎么开始】这段代码会监控工作表的改变,并在用户选择第一行某一列时,自动将滚动条设置到该列 。完成以上操作后,你可以保存并关闭 VBA 编辑器,回到 Excel 工作表 。此时,在打印预览模式下,你可以通过滚动条来浏览数据,同时也能正确地显示横向分页线,方便进行打印 。

文章插图
推荐阅读
- 时间过的真快的说说 时间过得真快的说说
- dotti是什么品牌 do是什么牌子
- 怎样变双眼皮学生 让眼睛变大的方法
- 适邦食物垃圾处理器实用设计,隐蔽安装操作简单功能强大
- 全国目前最火的加盟店 2021年加盟好项目
- 陈赫在成都开的火锅店叫什么 陈赫火锅店道歉
- qd是一天几次 qd表示一天多少次
- 魔术贴如何恢复粘性
- 三星Galaxy S20粉丝版可能是Galaxy S20 Lite
