vba，设置，excel，wps ，页面设置例子

Posted 2020-10-13 冷色008

 

 

 

 

 

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