页面设置,包含：自动判断顶端标题行 网格线 页脚页数 水平居中

ychh_wy

自动判断顶端标题行是根据表格中必须有数字所在的区域作为依据的,对话框可自由的输入(单行输入行数即可,多行2:4)

1. Sub 页面设置()
   
2.     Application.ScreenUpdating = 0
   
3.     If Application.WorksheetFunction.Count(Cells) = 0 Then GoTo 120
   
4.     On Error GoTo 110
   
5.     标题行 = ActiveCell.SpecialCells(2, 1).CurrentRegion.Row: GoTo 120
   
6. 110:
   
7.     标题行 = ActiveCell.SpecialCells(xlCellTypeFormulas, 1).CurrentRegion.Row
   
8. 120:
   
9.     标题行 = Rows(IIf(标题行 = "", 1, 标题行)).Address
   
10.     Q = InputBox("每页 固定打印 标题行，自动判断为：" & 标题行, "请修改行数", 标题行)
    
11.     On Error Resume Next
    
12.     If Q = "" Then
    
13.         W = ""
    
14.         ElseIf Q = 标题行 Then
    
15.         W = Q
    
16.         Else
    
17.         W = Rows(Q).Address
    
18.     End If
    
19.    
    
20.     With ActiveSheet.PageSetup                  '本行开始是 工作表 打印 设置
    
21.         .PrintTitleRows = W                               '"$1:$1"
    
22.         .PrintTitleColumns = ""
    
23.     End With
    
24.     ActiveSheet.PageSetup.PrintArea = ""
    
25.    
    
26.     With ActiveSheet.PageSetup
    
27.         .CenterFooter = "共 &N 页，第 &P 页"
    
28.         .LeftMargin = Application.InchesToPoints(0.75)                 '左
    
29.         .RightMargin = Application.InchesToPoints(0.75)               '右
    
30.         .TopMargin = Application.InchesToPoints(0.75)                  '顶边
    
31.         .BottomMargin = Application.InchesToPoints(0.39)            '底边
    
32.         .HeaderMargin = Application.InchesToPoints(0.51)            '页眉
    
33.         .FooterMargin = Application.InchesToPoints(0)                   '页脚
    
34.         .PrintGridlines = True                          '网格线
    
35.         .CenterHorizontally = True                  '水平居中
    
36.         .CenterVertically = False                      '垂直居中
    
37.         .PaperSize = xlPaperA4
    
38.         .Zoom = 100
    
39.     End With
    
40.     Application.ScreenUpdating = 1
    
41. End Sub
    

复制代码