发布网友
共3个回答
热心网友
解决方法:
通过拉动调整“上下、左右”边距
页面比例大小
字体大小
看哪个可以调整的微调哪个,这样就可以打印出适合纸张的内容来,即美观又规范
热心网友
用vba代码可以实现excel自适应打印
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
热心网友
在预览状态下,点设置,把比例调小一点就行了