Printoption-button in a pps file

[johan]

Hello,

What I want to do......

1) Create a ppt file with a button in it.
2) When you push the button you will get the "print option" screen
(select printer, set printer options, etc..).
3) After that I save the file as an pps file.
4) When opens the pps file I will have the possibility to push on the
button and get the "printoption" screen so I can select the printer
and settings that I want at that moment.

I'd tried it with send keys (CTRL+P) but that is in the pps file the
marker.

Got somebody a working solution that you had used or tried before ?

regards,
Johan

 

[Bill Dilworth]

Except in cases of small pox or other national emergency, investigate all
other options before using send keys in any programming. You never know
when there will be a meatware failure that interrupts the process.

You can create a macro that will open the print dialog when an action
setting object has been used in PowerPoint. Just beware of distribution
problems with any code. If the user has macro security set to high, or they
do not have VBA support installed or they work in an anal-retentive IT
environment; the macro may not function. Also, the print dialog is called
differently, depending on the version of PowerPoint.

What have you got so far?


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..

 

[John Wilson]

Since you mention .ppt files I guess you don't have 2007? This wont work in
2007!

Application.CommandBars("Menu Bar").FindControl(Id:=4,
Recursive:=True).Execute
Application.WindowState = 2

 

[johan]

Thanks.

I'm (our company) is using powerpoint 2003.

The code you mentioned:

"
Application.CommandBars("Menu Bar").FindControl(Id:=4,
Recursive:=True).Execute
Application.WindowState = 2
"

Gives an error:

Run-time error -2147467259 (80004005)_ CommandBarButton failure.

Perhaps another solution ?

regards,
Johan

 

[John Wilson]

Did you get the line breaks correct. There should only be two lines: (This
site will split the lines)

Application.CommandBars("Menu Bar").FindControl(Id:=4,
Recursive:=True).Execute 'this is the end of line 1
Application.WindowState = 2

 

[johan]

Thanks (again).

Yes, I write it completely in a one liner, so thats not the problem.
I think that the reference to the menubar is the problem, because in a
pps file there is no menubar.
When I use the button in the showview of the ppt file the buttons
works correct.
Perhaps a (workaround) solution is to autorun the slideshow when you
open the file (how to do ?)

regards,
Johan

 

[johan]

Hoi,

"
Try dragging it off its normal docked position to see what it's
called.
"

I'm missing some knowledge. What do I have to do ?
It's working in the ppt file, so I think (?) there's nothing wrong
with the name.
For info, our versions are english.
Do I understand that the solution you told me works in a pps file that
you'd
created from a ppt file with a button in it (pp 2003) ?

regards

 

[johan]

Thanks for all the suggestions you had given to me.
I understand that there is no simpel solution for (if there is a
solution).

As you mentioned, a button to print to the default netwerkprinter is
not the problem (even not in a pps file).
The only problem is to get the print-option screen in the pps file.

Perhaps in the future a simpel solution will come up.
Till then........ just be busy with other challenging items in PP.

Thanks en regards.
Johan