Grouping & Set Print Area

[ride2995]

Hi,

I'd like to group the worksheets in a document, then set the print area
yet the Set Print Area option is grayed out after grouping. Is there a
way to set the print area of multiple documents at once? All of the
documents are the same format, just personalized for individual
clients. If setting the print area isn't possible with grouping, how I
can print the entire workbook and get each worksheet to print out one
page instead of the one page (the actual document) plus the multiple
blank pages that follow it?

 

[CyberTaz]

Hello-

Correct, you can't set a print area for a group.

You can set the print area on each sheet & then print the group, or you
can select the group of sheets, select the area on the first sheet &
print without setting print areas at all. In fact, if the sheets have
no content other than what is to be printed, you can simply select the
group of sheets & print.

HTH |:>)

 

[ride2995]

I like the idea of simply printing, but when doing that, I get the page
with the actual document on it followed by three blank pages. Since
I'm printing over 150 pages, I'd prefer to print that many instead ot
150x3 (because of the 3 additional blank pages)! Any thoughts?

 

[CyberTaz]

Do I understand correctly that each body of client data is on a
separate worksheet & that you want to print the entire content of each
of the 150 sheets (which should amount to one page of data per client)?
And that these are consecutive sheets in the workbook?

If so & you are getting blank pages in between, it is probably because
you _have_ inadvertently set a Print Area on each sheet which is 3X the
size of the area you want to print. XL doesn't print blank pages unless
you tell it to (normally )

If you go to each sheet, then File>Print Area>Clear Print Area you
should find that the blank pages will go away. I know that's a PITA for
150 sheets, & if I had a macro I'd be happy to offer it up to automate
the process. Unfortunately I don't, but perhaps one of the MVPs are
tuned in & have something to share.

OTOH, if I'm misreading the situation, please clarify how the workbook
is structured.

Regards |:>)

 

[ride2995]

You do understand correctly and thank you for that! I will try what
you suggested. Thanks!

 

[JE McGimpsey]

If you go to each sheet, then File>Print Area>Clear Print Area you
should find that the blank pages will go away. I know that's a PITA for
150 sheets, & if I had a macro I'd be happy to offer it up to automate
the process. Unfortunately I don't, but perhaps one of the MVPs are
tuned in & have something to share.

Something like:

Public Sub ClearPrintAreas()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
'For each ws in ActiveWorkbook.Worksheets
ws.PageSetup.PrintArea = ""
Next ws
End Sub

As written it clears the print area for each selected sheet. If you
always want to clear print areas in all sheets, remove the apostrophe
from the third line, and put one in front of "For" in the 2nd line.