如何每页固定打印15行

laowuwyx · 发表于 2011-7-14 12:24

各位好！请教一下，如何每页固定打印15行，不含标题。谢谢！

dddfr · 发表于 2011-7-14 12:32

用VBA和打印工作薄可以实现，具体如下：
新建一张工作表，命名为（1）
将标题和打印格式设置好
用VBA将1至15行数据复制到工作表（1）内
复制工作表（1）为工作表（2）
将16至30行数据复制到工作表（2）
依此类推

wxhnr · 发表于 2011-7-14 12:50

每隔15行插入一个“分页符”，

手动操作步骤：插入----分页符，

代码操作：

Sub addbreak()
For i = 17 To Range("a65536").End(xlUp).Row Step 16
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a" & i)
Next
End Sub

楼上的方法也是可以的

迅岐同心 · 发表于 2011-7-14 13:00

好技巧，认真学习

laowuwyx · 发表于 2011-7-14 13:11

谢谢各位，我试一下。

LangQueS · 发表于 2011-7-14 13:18

Book1111.rar (33.8 KB, 下载次数: 116)

laowuwyx · 发表于 2011-7-14 13:32

哎，我是vba文盲，不知如何用代码。还请各位再讲解一下

laowuwyx · 发表于 2011-7-14 17:05

原帖由 LangQueS 于 2011-7-14 13:18 发表
956446

超版，实在不好意思，vba知识实在有限，搬不了家，重新上附件，每页除标题外固定打印15行。谢谢！

LangQueS · 发表于 2011-7-14 17:20

插入分页符的方法：

laowuwyx · 发表于 2011-7-15 10:03

学会了，谢谢超版。

		自动登录	找回密码
密码			免费注册

如何每页固定打印15行

最新热点 /1