Powerpoint

[gorvy]

I need to add a PRINT BUTTON to a powerpoint PPS slideshow to allows the users to print pages as they see fit.

Now I've used the VB code as below and others also BUT what happens is that the button works once and prints but does not work again - EVER!! Any ideas ? its a strnage one.

Private Sub CommandButton1_Click()
ActivePresentation.PrintOptions.RangeType = ppPrintCurrent
ActivePresentation.PrintOut
End Sub

G

 

[Hasit]

Couple of questions:

what version of powerpoint and to confirm, you want to allow users of the pp file to print the slide they are looking at if they want to print it or t print the entire deck?