Headings

G

Gord Dibben

Is a "spreadsheet" a worksheet with multiple printed pages?

Or is it a workbook and "multipage" means multiple worksheets?

A header can be set on all worksheets by right-click on a sheet tab and "select
all sheets".

Set the header to "continued" on one sheet and will be done to all.


Gord Dibben MS Excel MVP
 
S

SharonJo

Sorry, yes a single worksheet with multiple printed pages. I would like the
heading on pages 2-8 to say: Table 1:List of Whatever (Continued), but I
don't want the word (Continued) on page 1.

The list on page 1 decreases and increases, so I cannot place the heading at
the top of page 2.
 
G

Gord Dibben

1. Manually run two print jobs with a different Header for each job.

2. Use VBA macro to do this for you in one go.

Code from Ron de Bruin's site http://www.rondebruin.nl/print.htm#not tailored
for your case.

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.LeftHeader = "Table 1:List of Whatever"
ActiveSheet.PrintOut From:=1, To:=1
.LeftHeader = "Table 1:List of Whatever (Continued)"
ActiveSheet.PrintOut From:=2, To:=TotPages
End With
End Sub

If you're not familiar with VBA and macros, see David McRitchie's site for
more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

or Ron de De Bruin's site on where to store macros.

http://www.rondebruin.nl/code.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord
 
Top