PDA

View Full Version : Display total # of pages for handouts



Cody
05-01-2007, 11:56 AM
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.