主题：[求助]如何调整EXCEL分页符位置？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\11.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim i As Integer = 45
Do While i < ws.usedRange.rows.count

    Ws.Rows(i).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
    i += 44
Loop
wb.saved = True
App.Visible = True
Ws.PrintPreview
App.Quit