Print all slides in a PPT

[s96talle]

Hi I am having problem with such an easy thing as printing....

I have placed a textbox in my slide master and that triggers an action that runs a macro so a user can print when they are in slide show mode.

I have succeded to print, but my functions gives me only one page not the complete presentation.

Anyone that could give me something on this one?

Thanks!

Daniel

------ some example code-------

Sub PrintPPT()
    Dim AppPPT As Object
    Set AppPPT = CreateObject("PowerPoint.Application")
    AppPPT.Visible = True
    ' If you want to hide the PowerPoint Window, set the visible property
    ' to FALSE  and WithWindow argument of Open method to FALSE too.
    With AppPPT.Presentations.Open("c:\sample.ppt")
   DoEvents
   ' Use .PrintOptions property to specify any additional settings
   ' Set background printing off else, PowerPoint will terminate before printing is completed.
   .PrintOptions.PrintInBackground = False
   .PrintOut
   .PrintOptions.PrintInBackground = True
    End With
    AppPPT.Quit
    Set AppPPT = Nothing
End Sub