Enforcing Grayscale print

A dozen of my users prints powerpoint presentations each day. The
presentations are in color, but our printers are black and white.
However the setting Grayscale does not produce the same output as the
default (e.g. blue backgrounds are removed and it is less hungry on the
print toner).

I would like to enforce grayscale printing for Powerpoint, however I
cannot find any setting at "Custom Installation Wizard" or registry
change. Also, no option seem to be available inside Powerpoint, as this
setting is saved per printer?

I see that something is saved in a .PIP file ( C:\Documents and
Settings\hallstein\Application Data\Microsoft\Office\PowerP10.pip) when
I alter this per printer, but this is a binary file that I am not
allowed to tweak I guess-

So, anybody out there with the knowledge I obviously lack?

1. Open "Printing Preferences" by right-clicking on the printer, choose
Grayscale. Now (by default), the printer will print in Grayscale.
*Note: You need to do this with admin rights on the Print Server or the
PC the printer is attached to.

2. You also need to check the security of the printers and make sure
that those users are in a group that can only "Print" and not "Manage
Printers" or "Manage Documents"

deckhopper wrote:
1. Open "Printing Preferences" by right-clicking on the printer, choose
Grayscale. Now (by default), the printer will print in Grayscale.
*Note: You need to do this with admin rights on the Print Server or the
PC the printer is attached to.

I told you the printer was black and white, thus there is no
such "grayscale" option!

hallstein wrote on 31 jan 2006 in microsoft.public.scripting.vbscript:

deckhopper wrote:
1. Open "Printing Preferences" by right-clicking on the printer, choose
Grayscale. Now (by default), the printer will print in Grayscale.
*Note: You need to do this with admin rights on the Print Server or the
PC the printer is attached to.

I told you the printer was black and white, thus there is no
such "grayscale" option!


So it is there, you have no option.

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

"hallstein" wrote in message
A dozen of my users prints powerpoint presentations each day. The
presentations are in color, but our printers are black and white.
However the setting Grayscale does not produce the same output as the
default (e.g. blue backgrounds are removed and it is less hungry on the
print toner).

I would like to enforce grayscale printing for Powerpoint, however I
cannot find any setting at "Custom Installation Wizard" or registry
change. Also, no option seem to be available inside Powerpoint, as this
setting is saved per printer?

Saved per presentation file.

(Not vbscript but vba.)
How about distributing an add-in file(*.ppa).

For PowerPoint2000,

Sub Auto_Open()
Dim idxPrint As Integer
With Application.CommandBars("Menu Bar")
With .FindControl(Id:=4, Recursive:=True)
idxPrint = .Index
.Delete
End With
With .Controls(1).Controls.Add(Befo=idxPrint)
.Caption = "GrayScalePrint"
.OnAction = "GrayScalePrint"
.FaceId = 4
End With
End With
End Sub
Sub Auto_Close()
Application.CommandBars("Menu Bar").Controls(1).Reset
End Sub
Sub GrayScalePrint()
Select Case ActivePresentation.PrintOptions.PrintColorType
Case ppPrintColor: SendKeys "%G"
Case ppPrintPureBlackAndWhite: SendKeys "%UG"
End Select
Application.CommandBars.FindControls(Id:=4).Item(1 ).Execute
End Sub

For PowerPoint2003(probably also for PowerPoint 2002),

Sub Auto_Open()
Dim idxPrint As Integer
With Application.CommandBars("Menu Bar")
With .FindControl(Id:=4, Recursive:=True)
idxPrint = .Index
.Delete
End With
With .Controls(1).Controls.Add(Befo=idxPrint)
.Caption = "GrayScalePrint"
.OnAction = "GrayScalePrint"
.FaceId = 4
End With
End With
End Sub
Sub Auto_Close()
Application.CommandBars("Menu Bar").Controls(1).Reset
End Sub
Sub GrayScalePrint()
Select Case ActivePresentation.PrintOptions.PrintColorType
Case ppPrintColor: SendKeys "%G{DOWN 2}{TAB}"
Case ppPrintPureBlackAndWhite: SendKeys "%G{DOWN}{UP}{TAB}"
End Select
Application.CommandBars.FindControls(Id:=4).Item(1 ).Execute
End Sub

--
Miyahn (Masataka Miya****a) JPN
Microsoft MVP for Microsoft Office - Excel(Jan 2006 - Dec 2006)

Hi Hallstein,

You may want to also post this in the Powerpoint newsgroup (link below) and include the version(s) of Powerpoint and the Printer
model you are using when posting there.

=========
"hallstein" wrote in message ...
A dozen of my users prints powerpoint presentations each day. The
presentations are in color, but our printers are black and white.
However the setting Grayscale does not produce the same output as the
default (e.g. blue backgrounds are removed and it is less hungry on the
print toner).

I would like to enforce grayscale printing for Powerpoint, however I
cannot find any setting at "Custom Installation Wizard" or registry
change. Also, no option seem to be available inside Powerpoint, as this
setting is saved per printer?

I see that something is saved in a .PIP file ( C:\Documents and
Settings\hallstein\Application Data\Microsoft\Office\PowerP10.pip) when
I alter this per printer, but this is a binary file that I am not
allowed to tweak I guess-

So, anybody out there with the knowledge I obviously lack?
--
LLet us know if this has helped you,

Bob Buckland ?:-)
MS Office System Products MVP
*courtesy is not expensive and can pay big dividends8

A. Specific newsgroup/discussion group mentioned in this message:
news://msnews.microsoft.com/microsoft.public.powerpoint
or via browser:
http://microsoft.com/communities/new...lic.powerpoint


B. MS Office Community discussion/newsgroups via Web Browser
http://microsoft.com/office/communit...s/default.mspx
or
Microsoft hosted newsgroups via Outlook Express/newsreader
news://msnews.microsoft.com