VBA to print powerpoint presentation every 15 minutes

[Nadrem]

Hello all,

I googled and failed to locate the vba samples to do the following:

I have a 84 pages presentation and I need to print it 1 or 2 copies every 15 minutes passes. Does anyone know where can I locate vba samples to do so?

Dan

[John Wilson]

Is this in show mode?

[Nadrem]

Hello John,

Sorry for getting so late to respond. No, the PPP is not in show mode. I guess it called standard mode, extension of the PPP is pptx and is not run in slideshow mode.

Do you think you may have anything to share with me?

[John Wilson]

vba to print is fairly easy but there is no good (simple) way to make it run every 15 minutes in edit mode.

[Nadrem]

vba to print is fairly easy but there is no good (simple) way to make it run every 15 minutes in edit mode.

Dear John,

How about in the slide mode? Can you please share with code that runs in slideshow mode and prints every 15 minutes?

[John Wilson]

This would check the elapsed time every slide change and print out after at least 15 minutes. NOTE to make this code reliable add a Command Button to slide one and set it's visibility to not visible.


Public elapsed As Single

Sub OnSlideShowPageChange(SW As SlideShowWindow)


If elapsed = 0 Then elapsed = Timer
'NOTE this is 15 SECONDS to test for 15 minutes use 900
If Timer > elapsed + 15 Then
elapsed = Timer
Call printMe
End If
End Sub


Sub OnSlideShowTerminate()
elapsed = 0
End Sub


Sub printMe()
With ActivePresentation.PrintOptions
.PrintInBackground = msoTrue
.Ranges.ClearAll
.RangeType = ppPrintAll
End With
ActivePresentation.PrintOut
End Sub