如何用vba代码实现不同区域的不同纸张方向的自适应打印？

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

楼主
kevinchengcw

Q: 如何用vba代码实现不同区域的不同纸张方向的自适应打印？
A: 利用以下代码可以实现对三个区域采用不同的纸张方向，自动适应纸张后一次性印出：

Sub test()
With ActiveSheet
With .PageSetup '设置打印信息
.FitToPagesWide = 1 '自动适应页宽
.FitToPagesTall = 1 '自动适应页高
.CenterHorizontally = True '水平居中
.CenterVertically = True '垂直居中
.Orientation = xlLandscape '纸张方向横向
.PrintArea = "A1:O33" '打印范围
End With
.PrintOut '打印当前设置的页面
With .PageSetup
.Orientation = xlPortrait '纸张方向纵向
.PrintArea = "A35:K77" '设置打印范围
End With
.PrintOut '打印当前设置的页面
With .PageSetup
.Orientation = xlLandscape '纸张方向横向
.PrintArea = "A80:N106" '设置打印范围
End With
.PrintOut '打印当前设置的页面
.PageSetup.PrintArea = "" '清空打印区域
End With
End Sub

对于更多的区域可以用字典进行统合后，分成纵横两种分别打印。

2楼
xyf2210

跟着学习啦

免责声明

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

评论列表