Different/no header on page 1 (2002)

Topic

New Reply

We want to have no header on page 1 and then start the header on page 2 with the word ‘continued.’ That isn’t possible, is it? I can select only one header per tab/worksheet. Thanks for your help!

Reply | Quote

Replies

The key is to set the header on page 1 to nothing then print page 1, Then reset the header and then print the remaining pages
Here is a simple basic idea, you can add other refinements as needed. Change the Center header as desired for the other sheets (or change to Left, right, or even a footer). You could actually print a different header on each sheet if desired.

Steve

Sub PrintSheet()
    With ActiveSheet
        .PageSetup.CenterHeader = ""
        .PrintOut 1, 1
        .PageSetup.CenterHeader = "Center header"
        .PrintOut 2
    End With
End Sub

Reply | Quote

Is there a way to add formatting to this?

I would like to have “‘Table #” on the first line and “Table Title” on the second line and the text would be bold, 14 point, and centered

thanks.

Reply | Quote

Look up the subject “Formatting Codes For Headers And Footers” in the Excel VBA help. You can use something like this:

ActiveSheet.PageSetup.CenterHeader = "&14&B Table #" & vbCr & "Table Title"

&14 means font size 14, and &B means Bold. CenterHeader is automatically centered.

Reply | Quote

thank you!

Reply | Quote

The key is to set the header on page 1 to nothing then print page 1, Then reset the header and then print the remaining pages
Here is a simple basic idea, you can add other refinements as needed. Change the Center header as desired for the other sheets (or change to Left, right, or even a footer). You could actually print a different header on each sheet if desired.

Steve

Sub PrintSheet()
    With ActiveSheet
        .PageSetup.CenterHeader = ""
        .PrintOut 1, 1
        .PageSetup.CenterHeader = "Center header"
        .PrintOut 2
    End With
End Sub

Reply | Quote