默认设置打印方向为纵向，打印缩放比例满足一定条件改为横向

此乃小白一枚

顶一下

此乃小白一枚

代码有问题...已修改

1. Sub 打印多个工作表()
   
2. 
   
3.     Application.ScreenUpdating = False      '关闭屏幕更新
   
4.    
   
5.     If Not Application.Dialogs(xlDialogPrinterSetup).Show Then
   
6.         Exit Sub
   
7.     End If
   
8.    
   
9.     Dim 是否修改格式 As Integer
   
10.     是否修改格式 = MsgBox("是否自动调整打印格式", vbYesNo)
    
11.    
    
12.     Dim 当前工作表 As Excel.Worksheet
    
13.     For Each 当前工作表 In Worksheets
    
14.         With 当前工作表
    
15.             If .Visible = xlSheetVisible Then      '只打印没有隐藏的工作表
    
16.                 If 是否修改格式 = vbYes Then
    
17.                     鼎信诺化打印格式 当前工作表               '该函数存放于其他模块
    
18.                 End If
    
19.                 .PrintOut
    
20.             End If
    
21.         End With
    
22.     Next
    
23.    
    
24.     Application.ScreenUpdating = True      '恢复屏幕更新
    
25. 
    
26. End Sub
    
27. 
    
28. Sub 修改打印格式(ByVal 工作表 As Excel.Worksheet)
    
29.    
    
30.     Application.PrintCommunication = False           '中断与打印机的通信以提高运行速度
    
31.         
    
32.     ActiveWindow.View = xlPageBreakPreview   '切换视图为分页预览
    
33.    
    
34.     With 工作表.PageSetup
    
35.    
    
36.         .PaperSize = xlPaperA4              '页面纸张大小(Z)：A4
    
37.         .CenterHorizontally = True          '水平居中
    
38.         .Orientation = xlPortrait           '页面方向：纵向(T) xlPortrait/ 横向(L) xlLandscape, 默认纵向
    
39.         .Zoom = 70                          '页面缩放比例：70%（可忍受的最低缩放比例）
    
40.         Application.PrintCommunication = True           '恢复与打印机的通信以获得正确的垂直分页符数量
    
41.         Application.PrintCommunication = False           '中断与打印机的通信以提高运行速度
    
42.         If 工作表.VPageBreaks.Count Then .Orientation = xlLandscape       '页面过宽，改为横向
    
43.         .Zoom = False
    
44.         .FitToPagesWide = 1                 '调整为1页宽
    
45.         .FitToPagesTall = False             '高度自动

复制代码