Sub page_Break()
    Dim pb As Variant, cFull As Variant, cPartial As Variant
        For Each pb In Worksheets("Накладная").HPageBreaks
            If pb.Extent = xlPageBreakFull Then
                cFull = cFull +  1 
            Else
                cPartial = cPartial +  1 
            End If
        Next
    cPartial = cPartial +  1 
MsgBox " На листе " & cPartial & " страниц"
End Sub

Sub page_Break()
    Dim pb As Variant, cFull As Variant, cPartial As Variant
        For Each pb In Worksheets("Накладная").HPageBreaks
            If pb.Extent = xlPageBreakFull Then
                cFull = cFull +  1 
            Else
                cPartial = cPartial +  1 
            End If
        Next
    cPartial = cPartial +  1 
Worksheets("Накладная").Range("A1")=cPartial 
End Sub