Help with a macro

  • Thread starter Thread starter Rafa
  • Start date Start date
R

Rafa

Hope someone can help.
I would like to run a power point presentation in kiosk mode and then let
the user print out one slide as a proof that he watched the presentation.
The problem is, that it is not printing all the time, but only occassionally
(with one click). With two clicks, it mostly works, but often two slides
where printed. Who can help?
The macro looks like this:

Sub Printlastslide()
'
' Macro created 09/07/2009 by
'
With ActivePresentation.PrintOptions
..RangeType = ppPrintSlideRange
With .Ranges
..ClearAll
..Add Start:=47, End:=47
End With
..NumberOfCopies = 1
..Collate = msoTrue
..OutputType = ppPrintOutputSlides
..PrintHiddenSlides = msoTrue
..PrintColorType = ppPrintColor
..FitToPage = msoFalse
..FrameSlides = msoFalse

End With
ActivePresentation.PrintOut
End Sub
 
You can probably get away with something simpler:

Sub Printlastslide()
ActivePresentation.PrintOptions.OutputType = ppPrintOutputSlides
ActivePresentation.PrintOut From:=47, To:=47
End Sub

However, printing depends heavily on the default printer being set properly
so if this is going to different machines, you can't always be sure it will
work. I'm not sure why it would work sometimes and not others or work
differently with a double-click.

--David

Hope someone can help.
I would like to run a power point presentation in kiosk mode and then let
the user print out one slide as a proof that he watched the presentation.
The problem is, that it is not printing all the time, but only occassionally
(with one click). With two clicks, it mostly works, but often two slides
where printed. Who can help?
The macro looks like this:

Sub Printlastslide()
'
' Macro created 09/07/2009 by
'
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange

With .Ranges
.ClearAll

.Add Start:=47, End:=47

End With
.NumberOfCopies = 1

.Collate = msoTrue

.OutputType = ppPrintOutputSlides

.PrintHiddenSlides = msoTrue

.PrintColorType = ppPrintColor

.FitToPage = msoFalse

.FrameSlides = msoFalse


End With
ActivePresentation.PrintOut
End Sub
Click to expand...

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland
 
Back
Top