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