[CW]

is there any way to print certain pages of a doc (Word 2003) to one printer,
and other pages to another printer?
I know it's possible to direct to different trays within one printer, but
here I need to send the first (cover) page of a doc automatically to a
completely separate printer, without users having to select the printer
manually and select just page 1, and then go back in and selct the other
printer and print the other pages...
Many thanks
CW

[Graham Mayor]

Not without a macro. You can setup a macro to record the current printer,
change the printer to that required for the first page, print the first
page, change the printer to that required for the rest, print the rest then
restore the original printer. All the code examples you would need are shown
at http://www.gmayor.com/fax_from_word.htm .

In this particular instance replace "NameOfPrinterToPrintPage1"
with the name of the printer exactly as shown in the Print Dialog


Dim sLast As String
Dim sPrinter As String
sPrinter = ActivePrinter
With Selection
.EndKey wdStory
sLast = .Information(wdActiveEndPageNumber)
.HomeKey wdStory
End With
ActivePrinter = "NameOfPrinterToPrintPage1"
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
ActivePrinter = sPrinter
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="2-" & sLast

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



"CW" wrote in message
...
is there any way to print certain pages of a doc (Word 2003) to one
printer,
and other pages to another printer?
I know it's possible to direct to different trays within one printer, but
here I need to send the first (cover) page of a doc automatically to a
completely separate printer, without users having to select the printer
manually and select just page 1, and then go back in and selct the other
printer and print the other pages...
Many thanks
CW

[Graham Mayor]

Not without a macro. You can setup a macro to record the current printer,
change the printer to that required for the first page, print the first
page, change the printer to that required for the rest, print the rest then
restore the original printer. All the code examples you would need are shown
at http://www.gmayor.com/fax_from_word.htm .

In this particular instance replace "NameOfPrinterToPrintPage1"
with the name of the printer exactly as shown in the Print Dialog


Dim sLast As String
Dim sPrinter As String
sPrinter = ActivePrinter
With Selection
.EndKey wdStory
sLast = .Information(wdActiveEndPageNumber)
.HomeKey wdStory
End With
ActivePrinter = "NameOfPrinterToPrintPage1"
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
ActivePrinter = sPrinter
Application.PrintOut Range:=wdPrintRangeOfPages, Pages:="2-" & sLast

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



"CW" wrote in message
...
is there any way to print certain pages of a doc (Word 2003) to one
printer,
and other pages to another printer?
I know it's possible to direct to different trays within one printer, but
here I need to send the first (cover) page of a doc automatically to a
completely separate printer, without users having to select the printer
manually and select just page 1, and then go back in and selct the other
printer and print the other pages...
Many thanks
CW