主题：[求助]

Dim app As new MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

With Ws.PageSetup
    .TopMargin=15 '上边距
    .LeftMargin=50 '左边距
End With

wb.saved = True
app.visible = True
Ws.PrintPreview
app.quit