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

 

 

 

 

 

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