I'm trying to print handouts (with 6 slides per page) that will include a footer that displays the total number of handout pages. So, for example, if there are 14 slides, the handouts would show that there are 3 pages.

Using this code works for displaying the total number of pages for the entire presentation:

Code Snippet

With ActivePresentation.Slides

AddOne = IIf((.Count Mod 6) = 0, 0, IIf((.Count Mod 6) < 5, 1, 0))

TotalPages = (.Count \ 6) + AddOne

End With

However, I was wondering if anyone knows a way to handle print ranges. So if I select a group of something like 8 slides to print, is there a way that I can get it to display 2 as the total number of pages

Any help would be greatly appreciated.