I'll give it a go and report back.

Thanks
James

"JMay" wrote in message
...
This ActiveWindow.Selectedsheet approach (in my opinion) has limitations.
Are the Sheets which you wish to print contiguous (left to right) in your
Window footer? If they are then maybe you could modify the following,
which at present Prints ALL worksheets in the Book. Modify the For each to
get the contigous sheets you want.

Sub Print_MySheetsPg1Only()
For i = 1 To Worksheets.Count
Worksheets(i).Activate
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next i
End Sub

I'm a novice at all this, but maybe this will work (for you).
Another "James" here,,,


"James Cornthwaite" wrote in message
:

Thanks for the reply

Unfortunately that doesnt work (or do what i want)

It only prints the first page of the FIRST selected worksheet rather than
the desired first page of EACH selected worksheet
(politly remember I want to send to the printer as one job else it would
be
easy i guess)

Thanks again
James





"JMay" wrote in message
...
Try:
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate
_
:=True
hth

"James Cornthwaite" wrote in message
:

That works great now. Thanks. but.... (sorry)

The last awkward point I want to achieve is to print only the FIRST
page
of
each worksheet (its complicated as to why).

Ideally something like

Sheets(Array("Sheet1".pageOneOnly, "Sheet2".pageOneOnly,
"Sheet3".pageOneOnly)).Select.
ActiveWindow.SelectedSheets.PrintOut

Is this possible ?



Obviously the following only prints the first page of the whole array
rather
than the desired first page of each the selected sheets.
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1

I've worked out how to print the first page of each selected sheet but
only
ever as seperate jobs being sent to the printer, never as just the one
job.



Many many thanks
James

"Gary''s Student" wrote in
message
...
Try:
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
before your PrintOut command
--
Gary's Student


"James Cornthwaite" wrote:

Hi,

Does anybody know how "ActiveWindow.SelectedSheets.PrintOut" can
changed
to
make all selected worksheets be sent to the printer as one job
rather
than
several jobs ?

The rationale being its used in a macro where all pages must be
printed
together without the risk of other peoples (printer on busy
network)
jobs
being placed in between or is it not possible?

Many thanks
James