You can toggle the colors applicable to the Range object by using:
.Shading.BackgroundPatternColorIndex = wdAuto
.Shading.BackgroundPatternColorIndex = wdYellow
Dim rng as range
set rng = activedocument.sections(2).range
'using above shading statements, will toggle the shading color of variable
"rng" to
either one of 'em.
To override the internal Print command, look here:
http://word.mvps.org/faqs/macrosvba/InterceptSavePrint.htm
There's also the possibility to make use of an Application event, such as:
DocumentBeforePrint()
Pls repost if y're interested.
Krgrds,
Perry
>I have a section of a document that I would like to be shaded or
>highlighted
[quoted text clipped - 6 lines]
> shading"
> that is available in Tools / Options.)