Format all worksheets for identical printing

[Potatosalad2]

I have a 47 tab spreadsheet that I would like to print with the same margins using the worksheet name as the header. Is there a way to do this without individually formatting each worksheet?

[Debra Dalgleish]

Right-click on a sheet tab, and choose Select All Sheets
Choose File>Page Setup
On the Margins tab, set the margins
On the Header/Footer tab, from the Header dropdown, select the name of
the active sheet.
Click OK
Right-click on a sheet tab, and choose Ungroup sheets.

Potatosalad2 wrote:
> I have a 47 tab spreadsheet that I would like to print with the same
> margins using the worksheet name as the header. Is there a way to do
> this without individually formatting each worksheet?


--
Debra Dalgleish
Contextures
http://www.contextures.com/tiptech.html

[Potatosalad2]

This works very well. Thank you. I would also like to format all tabs for Row 1 to repeat at the top but that option seems to be grayed out. Any suggestions?

[Debra Dalgleish]

Some options aren't available when sheets are grouped. You could use a
macro to set the print tile rows. For example:

'==============================
Sub SetPrinrTitles()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.PrintTitleRows = "$1:$1"
Next ws

End Sub
'============================

Potatosalad2 wrote:
> This works very well. Thank you. I would also like to format all tabs
> for Row 1 to repeat at the top but that option seems to be grayed out.
> Any suggestions?


--
Debra Dalgleish
Contextures
http://www.contextures.com/tiptech.html