Printing in Black and White - not grayscale.

[John Lovely]

I use colour a lot in documents as editing aids - highlighting standard text
which probably needs to be checked and edited prior to sending. I don't want
the colour to be visible at all in the printed document.

In "Word 6" I had a macro for printing in black and white - basically select
everything, change it to black, print it then undo to restore the previous
colours - see below.

EditSelectAll
FormatFont Color:=0
FilePrintDefault
EditUndo

In Word 97 and Word 2003 the macro is converted by prefixing WordBasic. to
each line and in Word 97 it still works. But in Word 2003 the macro actions
don't mark the document as undoable and the final line fails, leaving me with
an all black document.

How Can I get Word 2003 to undo the actions done in a Macro? Or is there a
print in black & white option in Word 2003?

 

[Jonathan West]

Hi John

I use colour a lot in documents as editing aids - highlighting standard
text
which probably needs to be checked and edited prior to sending. I don't
want
the colour to be visible at all in the printed document.

In "Word 6" I had a macro for printing in black and white - basically
select
everything, change it to black, print it then undo to restore the previous
colours - see below.

EditSelectAll
FormatFont Color:=0
FilePrintDefault
EditUndo

In Word 97 and Word 2003 the macro is converted by prefixing WordBasic. to
each line and in Word 97 it still works. But in Word 2003 the macro
actions
don't mark the document as undoable and the final line fails, leaving me
with
an all black document.

How Can I get Word 2003 to undo the actions done in a Macro? Or is there a
print in black & white option in Word 2003?

There is a print in black & white option, and has been for quite a few
versions!

Try this

With ActiveDocument
.Compatibility(wdPrintColBlack) = True
.PrintOut
.Compatibility(wdPrintColBlack) = False
End With