emz78 said:
I have a large number of documents that consist of some colour pages
and some black and white pages. How can I set the document up in
Word to recognise that when printing, colour pages print in colour
and black and white pages print in black and white? I can only see
that you choose colour or black and white to apply to the whole
document when sending it to print. I have to then select colour but
this means increased costs for printing my black and white sheets
using colour ink. Please help!!!!
While acknowledging Suzanne's reply, it is possible to select a black and
white printer by page using a macro to print each page as a separate job.
The macro requires that you have a separate printer driver for the black and
whire printer. If you are using just the one printer, then set up a second
copy of it and configure that to print only in black and white. You can then
run the following macro that will print each page of the current document to
the appropriate printer:
Enter the name of the B&W printer in the line
ActivePrinter = "Name of Black & White Printer"
Enter the numbers of the pages, separated by commas that you wish to print
in black and white in the first of the case statements - here 1, 3, 4 & 5.
The rest of the pages will be printed to the default printer (your colour
printer driver).
Sub PrintAndSelectPrinter()
Dim sPrinter As String
Dim i As Long
sPrinter = ActivePrinter 'Default printer
For i = 1 To ActiveDocument.Range.Information(wdActiveEndPageNumber)
Select Case i
Case Is = 1, 3, 4, 5 'Print pages black and white
ActivePrinter = "Name of Black & White Printer"
Case Else
ActivePrinter = sPrinter
End Select
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
From:=Format(i), to:=Format(i)
Next i
ActivePrinter = sPrinter
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
