Display total # of pages for handouts

[Guest]

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:

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.

 

[Steve Rindsberg]

Saw this first in Public.Office.Developer.Vba and replied there.

Have a look, if you want to follow up, either there or here is fine.