vb中输出到excel后如何控制页面边距?

[windata]

Set zsbexcel = New Excel.Application
zsbexcel.Visible = True
zsbexcel.SheetsInNewWorkbook = 1
Set zsbworkbook = zsbexcel.Workbooks.Add

zsbexcel.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter '水平居中

zsbexcel.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter '垂直居中
----------------------------------------------------
以上是控制对齐方式,请问如何控制边距?比如将左右边距改为0.5?

[pei_yanni]

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 180
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With

[iceriver521]

录制宏！

[shalen520]

WITH Excelapp.activesheet.pagesetup
顶边距2CM：
.topmarign=2/0.035
左边距2CM：
.leftmarign=2/0.035
右边距2CM:
.rightmarign=2/0.035
底边距2CM：
.bottommarign=2/0.035

[shalen520]

写错了，应该是margin

[windata]

下头的两位不好意思,我结贴了以后才发现你们的,呵呵,不过还是很感谢各位的帮助!