How can I print 1 page in b/w & another in colour from a document?

E

emz78

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!!!!
 
S

Suzanne S. Barnhill

Your monochrome pages should not be printed with color ink if you have a
CMYK printer. Some inkjet printers do seem to use a composite black for
smaller paper sizes (cards and envelopes) but not for Letter or A4 pages.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org
 
G

Graham Mayor

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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top