在Excel中如何将一个表格内的内容依次连续的只打印一行到多张A4纸上?有点类似页眉,内容和编码都不一样。

如题所述

举个例子和你说吧:
1、先按alt + F11,点“视图”——“工程资源管理器”——点“插入”——“模块”
2、输入如下语句:

Sub 插入分页符()
ActiveSheet.ResetAllPageBreaks '重置所有分页符
For i = 1 To 50 '你的表格有多少行就是多少,我这个表格有50行。
If Cells(i, 1).Value > "" Then '如果本行第一个单元格内容不为空,那么执行下面的语句:
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveSheet.Cells(i, 3)'分页
End If
Next
End Sub

3、点击“右三角符号”运行
温馨提示:答案为网友推荐,仅供参考
第1个回答  2022-07-25
不知道你打印出来后还是表格那样的?不是要变换一种样式,比如打印信封那样的填空打印?

试一下邮件合并。