Printing Powerpoint from slide show with text box

[Bryan]

Can anyone advise how I can have a powerpoint slide print during the show
with the text that a student has entered into the text box? I have created a
certificate that allows the student to enter their name into the text box
during the slide show and to print the slide, but it prints the slide as it
was originally saved and the text box is printed blank.

Thanks
Bryan

 

[David Marcovitz]

Can anyone advise how I can have a powerpoint slide print during the show
with the text that a student has entered into the text box? I have created a
certificate that allows the student to enter their name into the text box
during the slide show and to print the slide, but it prints the slide as it
was originally saved and the text box is printed blank.

Thanks
Bryan

What is the student doing to enter the text into the slide? Is it simply a
control text box that they type into, or are you using some sort of VBA?
Also, what version of PowerPoint are you using?

--David

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

 

[Bryan]

It is a control text box and I am using Power Point 2007. I have created a
certificate that I want to allow them to enter their name so when they print
the certificate that would appear.

Bryan

 

[David Marcovitz]

So, how are they printing? Do they exit slide show mode to print?
--David

It is a control text box and I am using Power Point 2007. I have created a
certificate that I want to allow them to enter their name so when they print
the certificate that would appear.

Bryan

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

 

[Bryan]

David,

I have added a command box so they can print from the slide, here is the
macro I used to do this, can i modify the macro to print the screen maybe?

Bryan

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 = ppPrintOutputNotesPages

.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

 

[David Marcovitz]

I'm not sure why it's not working, but because you are already using VBA to
do the printing, you could use VBA to add the name to the slide directly
instead of to a control text box. Something along the lines of (air code
that I haven't tested):

Sub AddNameToCertificate()
Dim userName as String

userName = InputBox("Type your name as you want it to appear on your
certificate")
ActivePresentation.Slides("CertificateSlide").Shapes("NameShape") _
.TextFrame.TextRange.Text = userName
End Sub

All you have to do is create the slide, name it CertificateSlide, create a
text box on the slide for the name and name it NameShape. Then, running this
will ask for a name and have the text added right to the slide. To name the
slide and the shape, you can look at Example 8.7 on my site
(http://www.PowerfulPowerPoint.com/). You might also look at Example 7.9
that does something similar to this (and also includes a whole range of
other stuff that gets added to a newly created printable slide).

--David

David,

I have added a command box so they can print from the slide, here is the
macro I used to do this, can i modify the macro to print the screen maybe?

Bryan

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 = ppPrintOutputNotesPages

.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

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

 

[Bryan]

David

Thank you for your help. Can you help me with how do I name the text box?
Am I to make the text box using the developer control or the insert text box
function? I am lost on how to name it.

 

[David Marcovitz]

I'm sorry. I should have specified that you will be using a regular
AutoShape text box, not a control text box (because you seem to be having
trouble with the control text boxes, not because there is anything else
wrong with them). Once you create the text box, you can select it. Then, go
to my Web site (http://www.PowerfulPowerPoint.com/), click on "Examples by
Chapter" and "Chapter 8." Scroll down to Example 8.7 and click on the text
version. Copy all that code and paste into into a new module in your
PowerPoint. Now go back to the slide with the new text box selected and
choose to run a macro (Alt-F8 is the easiest way), and choose SetObjectName
(or did I call it SetShapeName) and type in a name for the shape. Just be
careful that you can't have more than one shape with the same name. You can
also name the slide the same way, just running the SetSlideName macro. I
think that 2007 has easier ways to names shapes and slides, but I have
mostly used 2003 and earlier.
--David

David

Thank you for your help. Can you help me with how do I name the text box?
Am I to make the text box using the developer control or the insert text box
function? I am lost on how to name it.

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

 

[Bryan]

David

All of these options are allowing me to enter data into the text box, yet
when I print the certificate it is only prinitng a blank text box without the
name that i typed into, any suggestions?

Thanks

Bryan

 

[David Marcovitz]

If you are doing what I am suggesting, then I don't understand what is not
working. If you actually get the text into the text box, it will have to
print when you print the slide. Is the text showing on the screen? Note that
the naming procedures are simply to help you use the code that uses names of
slides and shapes. You actually have to run the AddNameToCertificate
procedure to add the user's name to the slide. I have cooked up a little
example for you. You can download it from:

<webdev.loyola.edu/dmarco/marcovitz/Certificate.ppt>

It is one slide, but it could have many more slides. I used an added trick
to make it so that the print button doesn't actually show up on the print
out (by hiding it before printing). I used a much more simplified PrintMe
procedure than what you have, and I used much simpler versions of
SetSlideName and SetShapeName than what are on my Web site because I was
typing it all off the top of my head and not putting fancy stuff like error
checking. Try this out and see if it does what you have in mind.

--David

David

All of these options are allowing me to enter data into the text box, yet
when I print the certificate it is only prinitng a blank text box without the
name that i typed into, any suggestions?

Thanks

Bryan

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

 

[Bryan]

David

The presentation you sent me will not allow me to enter the text into the
name spot while in a viewing of the slide show....should it? That is what I
am trying to be able to do and then print what they entered while viewing the
slide show

Bryan

 

[David Marcovitz]

Yes, it should, and it does for me. Do you have your macro security set to
run macros? I created this in PowerPoint 2003, but it should work fine in
2007. What happens when you go into slide show view and click on the button?
--David

David

The presentation you sent me will not allow me to enter the text into the
name spot while in a viewing of the slide show....should it? That is what I
am trying to be able to do and then print what they entered while viewing the
slide show

Bryan

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

 

[Bryan]

David

Yes the macro's are open for use and I have saved the document as a macro
enabled document, when I start the slide show and click on <insert name> is
just advances to the next slide and doesnt allow me to enter the data

Thanks

Bryan

 

[David Marcovitz]

I didn't set the Insert Name text box to run the macro. If you would like,
you could set that text box to run the macro AddNameToCertificate. I set the
button to run the macro. Click on the button on the slide, and it should do
the rest.
--David

David

Yes the macro's are open for use and I have saved the document as a macro
enabled document, when I start the slide show and click on <insert name> is
just advances to the next slide and doesnt allow me to enter the data

Thanks

Bryan

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

 

[David Marcovitz]

I just tested this in 2007, and it works perfectly fine if you click the
button.
--David

David

Yes the macro's are open for use and I have saved the document as a macro
enabled document, when I start the slide show and click on <insert name> is
just advances to the next slide and doesnt allow me to enter the data

Thanks

Bryan

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

 

[Bryan]

David

Which button are you reffering to, the insert name area? I wish I could get
this, obviously it is something on my end.

Bryan

 

[David Marcovitz]

I'm referring to the only button I put on the slide. It is a button with
that has the text on it "Print Certificate." Click that button in slide show
view with macros enabled, and it should work (it works here in 2003 and
2007).
--David

David

Which button are you reffering to, the insert name area? I wish I could get
this, obviously it is something on my end.

Bryan

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

 

[Bryan]

David

I am still working with this and can not get it to work for me, since you
have it working would you be able to send me a link again where I can
download that working version you have to take a look at it?

THanks and I really do appreciate all your help with this.

Bryan

 

[Bryan]

David

I got it....Thank you for all the help, you can disregard the previous email
asking to send me that link again.

Have a great day and I cant thank you enough

Bryan

 

[David Marcovitz]

Great. I'm glad that you finally got it working.
--David

David

I got it....Thank you for all the help, you can disregard the previous email
asking to send me that link again.

Have a great day and I cant thank you enough

Bryan

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