SlideShow printing current slide

[Chris]

I've created the following VBA to print the current slide
during a slide show and attached it to a control button.

Dim CurrSlide as Long
CurrSlide=SlideShowWindows(1).View.Slide.SlideNumber
With ActivePresentation.PrintOptions
.RangeType=ppPrintSlideRange
With .Ranges
.ClearAll
.Add CurrSlide, CurrSlide
End With
.NumberOfCopies=1
.OutputType=ppPrintOutputSlides
End With
ActivePresentation.PrintOut

This works fine with one slide show active but I usually
have 4 to 5 open and when moving to a different slide view
via hyperlinks, the code prints the first slide of the new
show not the current viewed slide.

Thanks,
Chris