PPTM automatic print macro

%3CLINGO-SUB%20id%3D%22lingo-sub-1348773%22%20slang%3D%22de-DE%22%3EPPTM%20automatic%20print%20macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1348773%22%20slang%3D%22de-DE%22%3E%3CP%3EDear%20experts%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20am%20looking%20for%20a%20possibility%20to%20print%20the%20current%20slide%20while%20presenting%20the%20presentation%20and%20without%20clicking%20a%20predefined%20macrobutton%20just%20at%20opening%20this%20specific%20slide.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20made%20so%20far%20this%20macro%20which%20is%20running%20quite%20well%20but%20needs%20a%20click%20to%20start%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESub%20printCurr()%3CBR%20%2F%3EDim%20currSldnum%20As%20Long%3CBR%20%2F%3EcurrSldnum%20%3D%20SlideShowWindows(1).%20View.CurrentShowPosition%3CBR%20%2F%3Ewith%20ActivePresentation.PrintOptions%3CBR%20%2F%3E.%20RangeType%20%3D%20ppPrintSlideRange%3CBR%20%2F%3E.%20Ranges.ClearAll%20'%20kill%20any%3CBR%20%2F%3Ecurrent%20range%20settings%20.%20Ranges.Add%20Start%3A%3DcurrSldnum%2C%20End%3A%3DcurrSldnum%3CBR%20%2F%3EEnd%20With%3CBR%20%2F%3EActivePresentation.PrintOut%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EBut%20I%20am%20looking%20for%20a%20complete%20automated%20code%20that%20starts%20without%20clicking%20just%20by%20opening%20the%20slide%20slide.%3C%2FP%3E%3CP%3EWould%20it%20be%20possible%20to%20automate%20that%3F%3C%2FP%3E%3CP%3ECould%20you%20give%20me%20advice%20how%20to%20change%20the%20code%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20Powerpoint2010%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThank%20you%20and%20kind%20regards!%3C%2FP%3E%3CP%3ETom%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1348773%22%20slang%3D%22de-DE%22%3E%3CLINGO-LABEL%3EPPTM%20Macro%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Highlighted
New Contributor

Dear experts,

 

I am looking for a possibility to print the current slide while presenting the presentation and without clicking a predefined macrobutton just bei opening this specific slide.

 

I have made so far this macro  which is running quite well but needs a click to start:

 

Sub printCurr()
Dim currSldnum As Long
currSldnum = SlideShowWindows(1).View.CurrentShowPosition
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
.Ranges.ClearAll ' kill any current range settings
.Ranges.Add Start:=currSldnum, End:=currSldnum
End With
ActivePresentation.PrintOut
End Sub

 

However I am looking for a complete automated code that starts without clicking just by opening the slide slide.

Would it be possible to automate that?

Could you give me advice how to change the code?

 

I have Powerpoint2010

 

Thank you and kind regards!

Tom

0 Replies