Print Slide that is being viewed

  • Thread starter Thread starter DoKo
  • Start date Start date
D

DoKo

Not sure if this has been asked in this forum. I did some searches but
couldn't find anything.

I would like to create a CD of photos and give the viewer the capability of
printing the picture (slide) that they are currently viewing. Is it
possible to add a button to print picture (slide)?
 
Yes and no.

It depends on which program the person viewing the presntation ran.

If they are using a 1) PowerPoint (any full version) and 2) have allowed
macros to run; then you can place a command button on the slide and insert
the following code.
==========================
Sub CommandButton1_Click()
With Application.ActivePresentation
With .PrintOptions
.NumberOfCopies = 1
.PrintColorType = ppPrintBlackAndWhite
.PrintHiddenSlides = True
.OutputType = ppPrintOutputSlides
.RangeType = ppPrintCurrent
End With
.PrintOut
End With
End Sub
==========================

If not, no.

B
===============
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
B,
Thanks for the code. It worked perfectly. I was hoping though that there
was a way to print slide from a CD.
DoKo
 
If you are using the viewer, then no, the code will not work. It does not
support VBA.

B
===============
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
Hi B,
Note that ppPrintCurrent is a defined constant of the RangeType property
which is used to print the current slide
based on the location of the insertion point in the active presentation and
not current slide in the active show.


--
Regards
Shyam Pillai

Handout Wizard
http://www.mvps.org/skp/how/
 
Thank you, I missed that.

Unfortunately, this poster seems to be using the viewer, so the vba angle is
rendered unusable, but your correction is useful for those using the full
version.

I checked your site, and you've already done a sub for this. See:
http://www.mvps.org/skp/ppt00040.htm#6

Or, in the code I wrote, replace the code that reads:
.RangeType = ppPrintCurrent

with these lines:
.RangeType = ppPrintSlideRange
.Ranges.ClearAll
.Ranges.Add _
SlideShowWindows(1).View.Slide.SlideIndex, _
SlideShowWindows(1).View.Slide.SlideIndex


Thank you for helping me learn. I'd be lost without your sharing your
expertise.

B
 
Hello DoKo,

If "print" was one of the actions allow by the Action Settings in
PowerPoint, perhaps a button could be added with the action to "print this
slide", but PowerPoint does not provide an option to Print via Action
Settings.

If you (or anyone else reading this message) thinks that is important for
PowerPoint AND the PowerPoint Viewer support additional actions through the
Action Settings interface (such as "print this slide"), don't forget to
send your feedback to Microsoft at:

http://register.microsoft.com/mswish/suggestion.asp

As with all product suggestions, it's important that you not just state
your wish but also WHY it is important to you that your product suggestion
be implemented by Microsoft. Microsoft receives thousands of product
suggestions every day and we read each one but, in any given product
development cycle, there are only sufficient resources to address the ones
that are most important to our customers so take the extra time to state
your case as clearly and completely as possible.

IMPORTANT: Each submission should be a single suggestion (not a list of
suggestions)

John Langhans
Microsoft Corporation
Supportability Program Manager
Microsoft Office PowerPoint for Windows
Microsoft Office Picture Manager for Windows

For FAQ's, highlights and top issues, visit the Microsoft PowerPoint
support center at: http://support.microsoft.com/default.aspx?pr=ppt
Search the Microsoft Knowledge Base at:
http://support.microsoft.com/default.aspx?pr=kbhowto

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm
 
Back
Top