Printing from within a PowerPoint show

Hi,

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

Help much appreciated.

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

--
Luc Sanders
(MVP - PowerPoint)
"Gaetan" schreef in bericht
...
Hi,

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

Help much appreciated.

Try this FAQ:

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

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com
"Gaetan" wrote in message
...
Hi,

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

Help much appreciated.

It surely does and works perfectly... Thanks!

"Bill Foley" wrote:

Try this FAQ:

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

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com
"Gaetan" wrote in message
...
Hi,

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

Help much appreciated.

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





"Gaetan" wrote:

It surely does and works perfectly... Thanks!

"Bill Foley" wrote:

Try this FAQ:

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

--
Bill Foley
Microsoft PowerPoint MVP
Microsoft Office Specialist Master Instructor
www.pttinc.com
"Gaetan" wrote in message
...
Hi,

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

Help much appreciated.