主题：分页符

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

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

点击浏览该文件: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