Code not printing to color printer

B

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
 
B

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

Sharad Naik

Before WD.ActiveDocument.PrintOut,

Add line

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

Sharad
 
S

Sharad Naik

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

Dick Kusleika

You also may be able to

WD.ActivePrinter = Application.ActivePrinter

since you've already set it for Excel.
 

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

Similar Threads

Need VBA help 3
Excel changing Default Printer 1
Printing Macro 4
Printing Problems 1
VBA to print Word Document 1
macro to print a Word Doc 0
Pop Up Message before printing 3
Command Button 6

Top