K
Kel Good
Hi there,
This is my first post so please direct me elsewhere if this is an
inappropriate spot for this. I've done lots of VBA programming in
Access/Excel/Word, but never in PowerPoint.
I have a client who has created a PowerPoint presentation that uses a Flash
dashboard on some of the slides. He wants to provide a Print button on these
slides, which he did using the code shown below.
The problem is, when the variables in the Flash dashboard are changed, the
print out does not change with them.
Is there something simple that can be added to this code to make things
work?
Thanks.
Kel
Here is the code:
Sub PrintMe()
Dim lCurrentSlide as Long
lCurrentSlide = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=lCurrentSlide, End:=lCurrentSlide
End With
.NumberOfCopies = 1
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
End With
ActivePresentation.PrintOut
End Sub
This is my first post so please direct me elsewhere if this is an
inappropriate spot for this. I've done lots of VBA programming in
Access/Excel/Word, but never in PowerPoint.
I have a client who has created a PowerPoint presentation that uses a Flash
dashboard on some of the slides. He wants to provide a Print button on these
slides, which he did using the code shown below.
The problem is, when the variables in the Flash dashboard are changed, the
print out does not change with them.
Is there something simple that can be added to this code to make things
work?
Thanks.
Kel
Here is the code:
Sub PrintMe()
Dim lCurrentSlide as Long
lCurrentSlide = SlideShowWindows(1).View.Slide.SlideIndex
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=lCurrentSlide, End:=lCurrentSlide
End With
.NumberOfCopies = 1
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
End With
ActivePresentation.PrintOut
End Sub