Printing cell data across multiple copies.

[shonderja]

I have a work sheet that i want to print multiple copies of, id like to print each copy with a different header. I have to print 160 copies all with 160 different headers. i have all the headers in separate cells. can anyone provide me with a macro to do this. Thank you in advance!

[Arkadi]

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

try this in a module:

Please Login or Register  to view this content.

[shonderja]

this does not work i changed header sheet and work sheet that will print to sheet 1. column a is hidden as i only want it to print the list in the header. Am I missing a step?

[Arkadi]

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

[shonderja]

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
.PrintOut
End With
Next i

End Sub

[shonderja]

trying to attach

[Arkadi]

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.

[shonderja]

Im sorry this is my first time really using macros. I did not realize i had to run it. Thank you for your help

#NOOB

[Arkadi]

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.

[shonderja]

One more question how would i change this to print the Centerheader from Column A the Rightheader from Column B and the Leftheader from Column C

[Arkadi]

Please Login or Register  to view this content.

[shonderja]

And where do i mark as solved?

[Arkadi]

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