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