How to print 3 copies of one worksheet with different headers?

[1234_a]

Hello!
I have a problem which I don't know how to solve.
So, I have a one worksheet where is information which I need to print, but I need three copies of this sheet and for all of them I need different header:
1) Copy for me
2) Copy for company
3) Copy for accounting.

The main thing is that I need to click button print and it is printing 3 copies with different headers! I hope that someone will help me!

 

[mumps]

Try this macro replacing the text in red to suit your needs:

Sub InsertHeaderFooter()
    Application.ScreenUpdating = False
    Dim arr As Variant, i As Long
    arr = Array("Me", "Company", "Accounting")
    For i = LBound(arr) To UBound(arr)
        With ActiveSheet
            .PageSetup.CenterHeader = arr(i)
            .PrintOut
        End With
    Next i
    Application.ScreenUpdating = True
End Sub

 

[1234_a]

Sub InsertHeaderFooter() Application.ScreenUpdating = False Dim arr As Variant, i As Long arr = Array("Me", "Company", "Accounting") For i = LBound(arr) To UBound(arr) With ActiveSheet .PageSetup.CenterHeader = arr(i) .PrintOut End With Next i Application.ScreenUpdating = True End Sub

Thank you, but after I enter your code and press "run", the code want to save these copies, but I need like that - when I click "print" it just print me 3 copies with different headers.

 

[mumps]

when I click "print"

Do you have a "print" button on your sheet that you click? I tested the macro and it works properly.

 

[1234_a]

Do you have a "print" button on your sheet that you click? I tested the macro and it works properly.

No, I don't have a "print" button. I need it? If I need it, could you explain me how to get it?

 

[mumps]

No you don't need it. All you have to do is place the macro in a regular module and run it.

 

[1234_a]

No you don't need it. All you have to do is place the macro in a regular module and run it.

Thank you!

 

[mumps]

You're very welcome.