Getting Save and Print Option during Slide Show

  • Thread starter Thread starter Guest
  • Start date Start date
You will I think need to use vba to do this.

Do you want to just save / print the presentation or actually view the save
as / print dialogue boxes to eg alter filenames or options?
 
As Steve is (probably) suggesting you can expose the print dialogue in the
viewer by right click > print.

This vba (from microsoft help) will print out 1,3,4,5,8,9 slides
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add 1, 1
.Add 3, 5
.Add 8, 9
End With
End With
ActivePresentation.PrintOut

In the full program this vba might work to expose the dialogues

Sub printmenu()
Application.CommandBars("Menu Bar").FindControl(Id:=4, _
Recursive:=True).Execute
Application.WindowState = 2
End Sub

Sub saveasmenu()
Application.CommandBars("Menu Bar").FindControl(Id:=748, _
Recursive:=True).Execute
Application.WindowState = 2
End Sub

Amazing PPT Hints, Tips and Tutorials-
http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk
 
John Wilson said:
As Steve is (probably) suggesting you can expose the print dialogue in the
viewer by right click > print.
Click to expand...

Executive Summary: Sloth.

Steve's just avoiding the effort of writing any VBA examples until he knows
whether the result has to run in the viewer, where VBA won't fly. ;-)
 
Back
Top