Printing cell data across multiple copies.

Can I assume all your headers are in one column and in sequential rows?

try this in a module:

Option Explicit
Sub head_and_print()

Dim wsh As Worksheet 'header worksheet
Dim wsp As Worksheet 'printing worksheet

Dim i As Integer

Set wsh = Worksheets("your header sheet name")
Set wsp = Worksheets("the worksheet name that will print")
For i = 1 To 160 'assumes headers are stored in rows 1 to 160
    With wsp
        .PageSetup.CenterHeader = wsh.Range("A" & i).Value 'assumes you have the headers in column A
        .PrintOut
    End With
Next i

End Sub

can you maybe post your workbook with what you currently have for code? (or at least paste your code)

sorry what's wrong?
as I step through the macro, I get a copy with AIRPORT CO TIA
then BEACH PARK CO,
then I stopped. What is it that is not working for you? you have to run the macro for it to do anything, but I got 2 copies no problem. Maybe I didn't understand, I thought you said nothing happens?
It assumes you want to print to your default printer..

This will not make it do things when you go to menu and select print... you need to run the macro, which will change header and do the printing for you. Alternatively insert a button in the form and assign the macro to it.

No problem!, you are ok now? if so please mark the thread as solved, but if you want more help let us know

Edit:

I moved your macro to a sub, and added a button that you can use to trigger the macro. Macro already assigned to the button.

Option Explicit
Sub head_and_print()

Dim wsh As Worksheet 'header worksheet
Dim wsp As Worksheet 'printing worksheet

Dim i As Integer

Set wsh = Worksheets("Sheet 1")
Set wsp = Worksheets("Sheet 1")
For i = 1 To 109 'assumes headers are stored in rows 1 to 160
    With wsp
        .PageSetup.CenterHeader = wsh.Range("A" & i).Value 'assumes you have the headers in column A
        .PageSetup.LeftHeader = wsh.Range("C" & i).Value 'assumes you have the headers in column A
        .PageSetup.RightHeader = wsh.Range("B" & i).Value 'assumes you have the headers in column A
        .PrintOut
    End With
Next i

End Sub

menu near the top has a "Thread Tools" item. Under that is the Mark as solved option.