Macro to print a slide?

[Nikki]

I would like to print only the user name and content in the textbox on slide
34 of my presentation. I have no idea how to do any of this....

Any help would be greatly appreciated!

Thanks...

 

[David M. Marcovitz]

You want to look for Example 7-9 on my site:

http://www.loyola.edu/education/PowerfulPowerPoint/

Go to "Examples by Chapter" and "Chapter 7." The procedure you want is
toward the bottom of the module, and it is named PrintResults. Just change
the 6 to 34 in both places.

--David

 

[Nikki]

Thank you Dr. Marcovitz...Any help with my new post? Please see the following:

How do I print the content entered in a TextBox from slide 34 on a separate
slide? Please see the following code:

Sub PrintablePage()
Dim printableSlide As Slide

Set printableSlide = ActivePresentation.Slides.Add(Index:=86, _
Layout:=ppLayoutText)
printableSlide.Shapes(1).TextFrame.TextRange.Text = _
userName & " Description of Incident"

?????'printableSlide. CONTENT OF TEXTBOX ON SLIDE 34 goes here???????

Set homeButton = ActivePresentation.Slides(86).Shapes.AddShape _
(msoShapeActionButtonCustom, 0, 0, 150, 50)
homeButton.TextFrame.TextRange.Text = "Another Scenario"
homeButton.ActionSettings(ppMouseClick).Action = ppActionRunMacro
homeButton.ActionSettings(ppMouseClick).Run = "Another Scenario"
Set printButton = ActivePresentation.Slides(86).Shapes.AddShape _
(msoShapeActionButtonCustom, 200, 0, 150, 50)
printButton.TextFrame.TextRange.Text = "Print Results"
printButton.ActionSettings(ppMouseClick).Action = ppActionRunMacro
printButton.ActionSettings(ppMouseClick).Run = "PrintResults"
ActivePresentation.SlideShowWindow.View.Next
ActivePresentation.Saved = True
End Sub

 

[David M. Marcovitz]

I posted the answer as a response to your new post.
--David

David Marcovitz
Microsoft PowerPoint MVP
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/