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]

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
'============================