Sub yemian()
\'按钮1点击触发 执行下面的命令
With Sheets(1).PageSetup
\'对像是表格1的页面设置的函数PageSetup，下面是函数的属性修改前面加.
.Orientation = xlLandscape
\'= xlLandscape \'设置模向打印模式
\'= xlPortrait \'设置纵向打印模式
.TopMargin = Application.CentimetersToPoints(0.5)
\'=上边距
.BottomMargin = Application.CentimetersToPoints(0.5)
\'=下边距
.LeftMargin = Application.CentimetersToPoints(0.5)
\'=左边距
.RightMargin = Application.CentimetersToPoints(0.5)
\'=右边距
.HeaderMargin = Application.CentimetersToPoints(0.3)
\'=页头边距
.FooterMargin = Application.CentimetersToPoints(0.3)
\'=页脚边距
.LeftHeader = "To: 人力资源部 Date:" & Date
\'=左页眉
.CenterHeader = "&B &22 考勤表格通知单" & vbCrLf & "Requisition"
\'=中页眉
.RightHeader = "安格尔门窗有限公司 2017-11-03"
\'=右页眉
.LeftFooter = ""
\'=左页脚
.CenterFooter = ""
\'=中页脚
.RightFooter = ""
\'=右页脚
End With
End Sub