you should define a variable first.for example: dim i As integer
Then add 1 to i when you print.finally the variable i is the  total number.

current i'm able to count the total page of print.

but the problem now is,if there have 5 page to print the result come out is 1-5,cannot print out
2-5 pages,3-5 pages.

this is the current code:
Sub PageInfo()
    Dim iPages As Integer
    Dim iCol As Integer
    Dim iCols As Integer
    Dim lRows As Long
    Dim lRow As Long
    Dim iPage As Integer

 
    iPages = Worksheets("label").Range("k3")

    With ActiveSheet
              If .PageSetup.Order = xlDownThenOver Then
            iPage = (iCol - 1) * (lRows + 1) + lRow
        Else
            iPage = (lRow - 1) * (iCols + 1) + iCol
        End If
    End With
  
      
Worksheets("label").Range("g6") = iPage & " of " & iPages & " pages"
      
End Sub

please help.thanks.

where is the Loop Control?Just like For,While and so on.