常用代码归集

jsgj2023

Sub 以英寸为单位设置页边距()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .LeftMargin = Application.InchesToPoints(0.8)
        .RightMargin = Application.InchesToPoints(0.8)
        .TopMargin = Application.InchesToPoints(0.8)
        .BottomMargin = Application.InchesToPoints(0.8)
        .HeaderMargin = Application.InchesToPoints(0.6)
        .FooterMargin = Application.InchesToPoints(0.6)
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 以厘米为单位设置页边距()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    With ws.PageSetup
        .LeftMargin = Application.CentimetersToPoints(2.2)
        .RightMargin = Application.CentimetersToPoints(2.2)
        .TopMargin = Application.CentimetersToPoints(2.5)
        .BottomMargin = Application.CentimetersToPoints(2.5)
        .HeaderMargin = Application.CentimetersToPoints(1.8)
        .FooterMargin = Application.CentimetersToPoints(1.8)
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 设置左边_中间_右边页眉()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .LeftHeader = "打印日期:&D"
        .CenterHeader = "&""华文新魏,常规""&20职工工资一览表"
        .RightHeader = "打印者:" & Application.UserName
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 设置页脚()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .LeftFooter = "文件: &F  &A"
        .CenterFooter = ""
        .RightFooter = "第 &P 页  共&N 页"
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 页面设置为水平和垂直居中()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .CenterHorizontally = True    '页面水平居中
        .CenterVertically = True      '页面垂直居中
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 打印横向纵向打印设置()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .Orientation = xlPortrait   '纵向打印
        .Orientation = xlLandscape    '横向打印
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 设置打印纸张尺寸()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .PaperSize = xlPaperA4    'A4打印纸
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub A4纸张按照一页的宽度和高度打印()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .Zoom = False
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 打印标题和网格线()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    With ws.PageSetup
        .PrintHeadings = True
        .PrintGridlines = True
    End With
    Set ws = Nothing
End Sub

jsgj2023

Sub 预览时是否进行打印设置()
    Dim ws As Worksheet
    Set ws = Worksheets(1)
    ws.PrintPreview enablechanges:=False    '不允许在预览时进行打印设置
'   ws.PrintPreview    '允许在预览时进行打印设置
    Set ws = Nothing
End Sub