主题：分页符

老师，我的分页符画线怎么找不到？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3.08过程指导书初始版aq2019030003s-2021-01-05.rar

Dim NewAddess As String = "C:\Users\89284\Desktop\3.08过程指导书初始版AQ2019030003s-2021-01-05.xls"
Dim Book5 As New XLS.Book(NewAddess)
Dim SheetSrh4 As XLS.Sheet = Book5.Sheets("作业指导书")
Dim kkk As Integer = 0
Dim App3 As New MSExcel.Application
Dim kkki As Integer = 0
Dim Wb3 As MSExcel.WorkBook = App3.WorkBooks.Open(NewAddess)
Dim Ws As MSExcel.WorkSheet = Wb3.WorkSheets("作业指导书")
App3.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview
Wb3.save()
Sleep (2000)
For irowH As Integer = 6 To 200
    If kkki = 0 Then
        try
            If (Ws.HPageBreaks(irowH -5).Location.Row - 1) < (200 + 6) Then
                Output.Show(" 分页符  " & Ws.HPageBreaks(irowH -5).Location.Row - 1 & "    |||   " & irowH)
            End If
        catch ex As exception
            kkki = 1
            App3.Quit
        End try
    End If
Next
App3.Quit

 分页符  14    |||   6
 分页符  30    |||   7
 分页符  50    |||   8
 分页符  71    |||   9
 分页符  92    |||   10
 分页符  108    |||   11
 分页符  123    |||   12
，这个结果明显不对，14，36，58，79 。。。。。

还是不行，也找不出原因，
怕桌面表多弄错，把其他表全删除了，只留了这一张表运行；
怕计算机不行，隔夜又重启了

均没找到问题点

此主题相关图片如下：234.png