vb 操作excel问题，大家帮忙看看

在VB中如何设置excel的左右的页边距，假如都设置为1.0，请问如何编写，给出代码者多给分

---

VB code:
With xlsheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
End With

---

关注

---

录制宏，看代码，修改代码，就这么容易....

---

VB code:
'先引用excel *.0 object library
Private Sub Command3_Click()

Set ex = CreateObject("Excel.Application")
Set wb = ex.Workbooks.Add '新建excel
Set sh = wb.Sheets(1) '第一个工作表

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoin