| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not printing to color printer
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not printing to color printer
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. "Brad" wrote: 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not printing to color printer
You are setting Active Printer for Excel Application.
Set it for Word Application too:- i.e. WD.ActivePrinter "Brad" wrote in message ... 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. "Brad" wrote: 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not printing to color printer
Before WD.ActiveDocument.PrintOut,
Add line WD.ActivePrinter = "Name of the active printer on "printer port identifier" " Sharad "Brad" wrote in message ... 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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not printing to color printer
You also may be able to
WD.ActivePrinter = Application.ActivePrinter since you've already set it for Excel. -- Dick Kusleika Excel MVP Daily Dose of Excel www.dicks-blog.com Sharad Naik wrote: Before WD.ActiveDocument.PrintOut, Add line WD.ActivePrinter = "Name of the active printer on "printer port identifier" " Sharad "Brad" wrote in message ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| problem printing to HP color printer | Excel Worksheet Functions | |||
| Printing labels on a dot matrix printer - what does this code do | Excel Discussion (Misc queries) | |||
| Printing labels on a dot matrix printer - what does this code do | Excel Discussion (Misc queries) | |||
| Printing Excel Spreadsheet to Color Printer | Excel Discussion (Misc queries) | |||
| Printing To A Specified Printer | Excel Programming | |||
Hybrid Mode
