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" <(E-Mail Removed)> wrote in message
news:K6-(E-Mail Removed):
> 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" <(E-Mail Removed)> wrote in message
> news:zSG5h.33993$(E-Mail Removed)...
> > Try:
> > ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
> > :=True
> > hth
> >
> > "James Cornthwaite" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed):
> >
> >> 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" <(E-Mail Removed)> wrote in
> >> message
> >> news:7C5BDF45-949A-4584-ABF1-(E-Mail Removed)...
> >> > 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
> >> >>
> >> >>
> >> >>
> >> >>
> >> >>
> >
|
Similar Threads
