Code not printing to color printer

[Brad]

Alright, I have another one. I have a code that prints out sheets for me in a
certain order. I have the code open up a word document and then prints that
document. However, it will not print to the color printer, it only prints to
my default printer. How can I make the code have the word doc print to my
color printer. Here is my current code. Any help is appreciated. Thanks.

On Error Resume Next
Application.ActivePrinter = "HP C LaserJet 4550N PCL6 on Ne01:"
If Err.Number = 1004 Then
Application.ActivePrinter = "hp c Laserjet 4550N PCL6 on Ne02:"
Err.Clear
End If
Application.ScreenUpdating = False
Sheets("Letter").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Cover").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Agreement").Select
Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open ("G:\CONTRACT\Contract Terms\macro\2005
t&cscontract.doc")
WD.ActiveDocument.PrintOut Background:=False
WD.Application.Quit SaveChanges:=wdDoNotSaveChanges
Set WD = Nothing
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Agreement").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Cover").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Agreement").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True

 

[Brad]

I forgot to mention. The excel sheets are printing just fine in color to my
"HP C LaserJet 4550N PCL6", it's only the word document that won't print to
this printer.

 

[Sharad Naik]

Before WD.ActiveDocument.PrintOut,

Add line

WD.ActivePrinter = "Name of the active printer on "printer port identifier"
"

Sharad

 

[Sharad Naik]

You are setting Active Printer for Excel Application.
Set it for Word Application too:- i.e. WD.ActivePrinter

 

[Dick Kusleika]

You also may be able to

WD.ActivePrinter = Application.ActivePrinter

since you've already set it for Excel.