Printing from within a presentation

  • Thread starter Thread starter Marc
  • Start date Start date
M

Marc

I found this faq from a previous question
http://www.pptfaq.com/FAQ00763.htm. I've pretty much copied and pasted it
into my presentation, and it does work. The problem is, it's printing out 4
to 5 copies of the slide, instead of just one. How do I make it print only
one copy?
 
Marc

I'm guessing your default "number of copies" is set to more than 1.

Have a look in
control panel > printers > properties ... to see what that is set to

cheers
TAJ Simmons
PowerPoint Master

http://www.awesomebackgrounds.com
awesome - powerpoint templates,
powerpoint backgrounds, free samples, ppt tutorials...
 
I checked my printer settings, and it does say 1 copy, unless I'm looking in
the wrong place. Here is exactly what I put in Visual Basic.

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

.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 = msoFalse

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

.FitToPage = msoTrue
.FrameSlides = msoFalse

End With

' and PRINT
ActivePresentation.PrintOut

End Sub
 
Steve Rindsberg said:
I just copied and tried the code you're using ... works fine here and produces only
one copy of the current slide on the default printer.

What happens when you manually do File, Print and print just one slide?
Click to expand...

Only 1 copy prints doing it that way.
 
Back
Top