如何利用VBA代码在一页纸上打印两份相同的内容？

作者：绿色风分类：时间：2022-08-17 浏览：137

楼主
kevinchengcw

Q: 如何利用VBA代码在一页纸上打印两份相同的内容？
A: 思路说明：
1. 判断出当前表格的最下方数据单元格行号；
2. 将当前表格复制一份放在下方间隔一定行数的位置;
3. 根据需要设置纸型并自动适应宽高；
4. 打印，然后清空复制的表格区域。

示例代码如下：

Sub test()
Dim N&, I&
With ActiveSheet '对活动工作表进行操作
For N = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column '循环工作表中A列到最后一列
I = IIf(.Cells(.Rows.Count, N).End(3).Row > I, .Cells(.Rows.Count, N).End(3).Row, I) '判断最下方数据行的最大值（注：本例针对表格，可以关注一下本方法与usedrange方法的不同之处）
Next N
I = I + 2 '最下方单元格再下移两行
.[a1].Resize(I - 2, N).Copy .Cells(I, 1) '将上方表格复制一份
With .PageSetup '设定页面设置里的一些参数
.PrintArea = "" '清空打印区域
.PaperSize = xlPaperA4 '设置纸型为A4
.FitToPagesWide = 1 '设定页宽自动适应
.FitToPagesTall = 1 '设定页高自动适应
End With
.PrintOut '输出打印
.Rows(I & ":" & Rows.Count).Clear '清空复制出的表格
End With
End Sub

另: 可设置判断长宽比从而设置纸张方向等来进一步完善此代码。

附示例文件。

在一页上打印两份同样的东西.rar

2楼
亡者天下

过来学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表