With ActiveSheet.PageSetup
'æ¬å·å
æ°å¼ä¹ä»¥2.54å³ä¸ºé¡µé¢è®¾ç½®æ°æ®
.LeftMargin = Application.InchesToPoints(0.94488188976378)
.RightMargin = Application.InchesToPoints(0.94488188976378)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
End With
温馨提示:答案为网友推荐,仅供参考