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.

Re: PPT: Display total # of pages for handouts

Andy Pope

Did the replies you received in the newsgroup resolve your problem