分页预览怎么取消(分页预览怎么取消页数水印)

币圈问答 阅读 3 2023-08-02 15:45:39

Bitget下载

注册下载Bitget下载,邀请好友,即有机会赢取 3,000 USDT

APP下载   官网注册

Excel工作表有多种多样的表格,如果想随心所欲地拆分工作表,进行打印怎么办呢?

其实,也有好办法,本节就介绍一下,如何对工作表进行拆分打印。

拆分打印并不是把工作表给分解了,而是给表格加一些分页标识,这些标识在普通视图下并不能明显地观察到,可以切换到分页预览,如下图样式,第一页都看明白了。

有什么好处呢?

也就是说当我们的表格记录了一些数据块的时候,就有用了。一个数据块打印到一份纸上。

如下图所示,分别打印出三行二列的表内容,如果这三行二列为某一个相关单元的信息,那么就相对来说有意思了。

具体应用,根据自己的工作内容来理解,接下来看一下代码实现方法:

Private Sub CommandButton1_Click()Dim ir As Integer, ic As Integer, i As Integerir = 15ic = 6ActiveSheet.ResetAllPageBreaks '重新设置分页符For i = 2 To ic    If i Mod 2 = 1 Then'每两列插入一个分页符        ActiveSheet.Columns(i).PageBreak = xlPageBreakManual    End IfNext iFor i = 1 To ir    If i Mod 3 = 0 Then        ActiveSheet.Rows(i).PageBreak = xlPageBreakManual    End IfNext iApplication.PrintCommunication = FalseWith ActiveSheet.PageSetup    .PrintTitleRows = "$1:$1"'设置标题行End WithApplication.PrintCommunication = TrueEnd Sub

代码很简单,重点是下面一句:

ActiveSheet.Rows(i).PageBreak = xlPageBreakManual

设置一下PageBreak属性就可以了。

如果要打印标题行,也就是每页都要打印的标题,需要设置如下属性:

PageSetup.PrintTitleRows = "$1:$1"

本节就讲这些,多练习之后,会看到神奇效果。

欢迎关注、收藏。

---END---

相关内容

标签: 拆分打印 如下图 工作

分页预览怎么取消(分页预览怎么取消页数水印)文档下载: PDF DOC TXT
文章来源: jodie
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至举报,一经查实,本站将立刻删除。
上一篇: 币看比特币怎么看?比特币怎么看图 下一篇: 比特币小额 比特币大额

相关资讯