Printing Notes Page Of Current Slide

[Dennis]

I'm trying to print the notes page of a slide. I'm using the following code
from a button on that particular slide.

With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputNotesPages
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
'.ActivePrinter
End With
ActivePresentation.PrintOut

The problem is that is prints the previous slide's notes rather than the
slide with the button. Is it a matter of focus? Is there code I can use to
insure that the focus is on the page with the button before executing the
above? I want to use the button\code on several different slides.

Any help would be appreciated.

 

[Dennis]

Great! Exactly what I needed. Thanks for the help and quick response.