Printing from within a PowerPoint show

[Guest]

Hi,

Anyone can help me with the VBA codes to print a slide from within a
presentation?

Help much appreciated.

 

[Luc]

Gaetan,
See if this helps you:
http://www.pptfaq.com/FAQ00763.htm

 

[Bill Foley]

Try this FAQ:

http://www.pptfaq.com/FAQ00763.htm

 

[Guest]

It surely does and works perfectly... Thanks!

Try this FAQ:

http://www.pptfaq.com/FAQ00763.htm

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com

 

[Eduardo]

Thank you Bill and Luc.
I am interested in displaying a print notification message after running the
macro (via action on click). Do you know what VB code I will need to add
below to make this happen?
Your help is greatly appreciated.

Ed


Sub PrintMe()

Dim lCurrentSlide As Long

' Get the SlideID of the slide currently in view
lCurrentSlide = SlideShowWindows(1).View.Slide.SlideNumber

' Set up print options
With ActivePresentation.PrintOptions

' Print a range that includes only the current slide
.RangeType = ppPrintSlideRange
' Change it to .RangeType = ppPrintAll to print the entire
presentation
' You may also need to delete the following four lines to print all
With .Ranges
.ClearAll
.Add Start:=lCurrentSlide, End:=lCurrentSlide
End With

.NumberOfCopies = 1

' This prints notes pages; change it to e.g. ppPrintOutputSlides
to print slides
' To see the other types delete everything from the = sign to the
end of the line below
' Then type = at the end of the line; VBA's Intellisense feature
will show you the available options
.OutputType = ppPrintOutputSlides

.PrintHiddenSlides = msoTrue

' Likewise, change this if you want color or pure b/w
.PrintColorType = ppPrintBlackAndWhite

.FitToPage = msoFalse
.FrameSlides = msoFalse

End With

' and PRINT
ActivePresentation.PrintOut

End Sub

 

[Eduardo]

Hi,

The powerpoint file created (with the print code below) will be accessed by
the audience using thier IE browser. Unfortunately, the print functionality
(and message dialog box) does not work - any ideas?

Any help/support would be appreciated.

Ed