自动打印代码：自动缩放到1页，自动调整横纵向。

guangzhao17

平时打印报表，国地税报表等，总会遇到这个问题，打印需要预览，然后设置横纵向，再缩放到1页，很的麻烦，所以我找了资料，设计组装了下面的代码，用起来超爽！
代码放到个人宏工作簿，然后在工具栏添加这个宏的快捷图标，可以在所有工作簿中使用了。
环境：office07及以上。
手动添加步骤案例：
http://jingyan.baidu.com/article/2c8c281df745d90008252acd.html

以下是代码：

Sub 自动缩放打印()
'MsgBox UsedRange.Rows.Count
'MsgBox UsedRange.Columns.Count
With ActiveSheet
    With .PageSetup     '设置打印信息
    .Zoom = False
        .FitToPagesWide = 1     '自动适应页宽
        .FitToPagesTall = 1     '自动适应页高
        .CenterHorizontally = True  '水平居中
'        .CenterVertically = True    '垂直居中
If ActiveSheet.UsedRange.Width > ActiveSheet.UsedRange.Height Then
.Orientation = xlLandscape  '纸张方向横向
Else
.Orientation = xlPortrait      '纸张方向纵向
End If
End With
End Sub

chanelfang

谢谢分享，正好在找这方面的资料，明天上班时候试试。

qdkfc

提示错误     编译错误:缺少end with

lance65

下来试试，谢谢发布。

guangzhao17

qdkfc 发表于 2017-4-20 16:27
提示错误     编译错误:缺少end with

后面再增加一个end with
忘记补充了。

iris00

guangzhao17 发表于 2017-5-14 23:05
后面再增加一个end with
忘记补充了。

请教如何设置在打印预览时就自动运行宏，而不是每次都要点击执行才运行？

雷霆悍马

非常好用，谢谢高手分享

guangzhao17

'更正一下，正确的代码如下：

Sub 自动缩放打印()
'MsgBox UsedRange.Rows.Count
'MsgBox UsedRange.Columns.Count
With ActiveSheet
    With .PageSetup     '设置打印信息
    .Zoom = False
        .FitToPagesWide = 1     '自动适应页宽
        .FitToPagesTall = 1     '自动适应页高
        .CenterHorizontally = True  '水平居中
'        .CenterVertically = True    '垂直居中
If ActiveSheet.UsedRange.Width > ActiveSheet.UsedRange.Height Then
.Orientation = xlLandscape  '纸张方向横向
Else
.Orientation = xlPortrait      '纸张方向纵向
End If
End With
End With

End Sub

guangzhao17

iris00 发表于 2020-6-12 09:12
请教如何设置在打印预览时就自动运行宏，而不是每次都要点击执行才运行？

应该没办法吧。我是加的自定义按钮。
在工具栏添加这个宏的快捷图标。