Print a small range at the top of the page

[MariaPap]

Hello

i have this code to print an area.

Dim LR As Long
    LR = Sheets("13").Range("bq" & Rows.Count).End(xlUp).row
    Dim rng As Range
    Set rng = Sheets("13").Range("bo1:bs" & LR)
    rng.PrintOut

What i need is in the top of the page, renge BK11:BK12, TO BE PRINTED also.

Any idea?

[AlphaFrog]

Try something like this...

    With Sheets("13")
        .PageSetup.CenterHeader = .Range("BK11").Value & " " & .Range("BK12").Value
        .Range("BO1:BS" & .Range("BQ" & Rows.Count).End(xlUp).Row).PrintOut
    End With

[MariaPap]

Hi

Thank you for your suggestion. Unfortunately i can not test it as i have no printer at home(Saturday noon here!). I'll try it on Monday morning and let you know.

Thanks again.

[klvaughnsd]

I think you could also go to File/Page Setup/Sheets/Rows to repeat at top. It's not VBA, but, IIRC, you do that once and never have to do it again (For that sheet.)

[MariaPap]

@ klvaughnsd

Thanks for your suggestion but in that particular sheet i have more than 20 different print ranges, so will be difficult to use this.

@ AlphaFrog

Thank you. This works great. I'll mark thread as solved but can you pls tell me:

1) If i want range BK11:BK12 to be printed at the right side of the report will i use this?

 ..PageSetup.RightHeader

2) Range BK11:BK12 is bolded and have a border arount but these are not printed. Can we do something for that?

Again thank you very much!

[AlphaFrog]

It may be better for you to...

• add a new blank "Report" worksheet
• Copy BK11:BK12 to cells A1:A2 with the formatting
• Copy .Range("BO1:BS" & .Range("BQ" & Rows.Count).End(xlUp).Row) to A3 w/formatting
• Format anything else you want
• Print the new formatted Report sheet and then delete it.

[MariaPap]

Thank you.

Hoping that i understand well your suggestion, i like to say that(us i understand) this is something that i have to do manually eatch time.

But i need to print more than 20 such reports per day, so it will be real hard to do this for eatch one.

[AlphaFrog]

Since you were writing a macro before, I assumed you could do it this new way with a macro as well. You could a least record the steps to create and print one report then modify the recording.

[MariaPap]

Thank you.