Hi,
I have some VBA in an Access 2003 database that produces a slide and displays
data from a table in a presentation. It is working well.
I have been asked if it is possible to put a print button on the last slide
and when clicked, all the slides would be printed.
I have the code below that puts a custom action button onto my last slide. I
don't know how to get it to print when the button is clicked. I understand
that "Print" refers to a macro that would be in the PowerPoint VBA but this
VBA is running from Access, creating the presentation on the fly.
So how can I get that button to print the slides in the presentation
currently being displayed?
Many thanks
Anthony
My code:
**********
Set PrintButton = EndSlide.Shapes.AddShape(125, 340, 400, 30, 15)
EndSlide.Shapes.PrintButton.ActionSettings(ppMouseClick).Action =
ppActionRunMacro
EndSlide.Shapes.PrintButton.ActionSettings(ppMouseClick).Run =
"Print"
Is this the correct code below to print all the slides?
***********************************************************
PPPres.PrintOptions.OutputType = 1
PPPres.PrintOut
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/powerpoint/200805/1