Clear Print Area Sub Vba Code

[RJ1969]

Hello,
I have a button in the worksheet and I need a code that when I click the button then it will clear the print area.

Or

Is it possible to set a print area from Column A1:T31 as page 1

and A32:T44 as a Page 2 then the rest will not be necessary to print.


thanks. I hope the second option will work : o)

Thank you

[dangelor]

Possibly...

Sub Print_2_Pages()
    With ActiveSheet
        .PageSetup.PrintArea = ""
        .ResetAllPageBreaks

        .PageSetup.PrintArea = "$A$1:$T$44"
        .HPageBreaks.Add Before:=Range("A32")
    End With
End Sub

[RJ1969]

Good morning,
I did add the code and I added the button for the clear print area.
It kinda work.
There is a dotted line in row 24 which it should go to the row 31. So the pages should make 2 pages only.

Do I need to fix the margins? Thank you

[dangelor]

Change the margins, row heights, or scaling.

[RJ1969]

Ok... thanks.

One more thing maybe you can help me with it.
I am trying to find something I can set the footer and the header center to set a font. I want it to added in the vba code where the margin button is.

Can you please?

[RJ1969]

What I meant trying to set a font for the center footer to maybe 20 with arial black. I need to add the code in the vba code which I already have in there.

[RJ1969]

I tried to add this in it but seems doesn't not work.

.CenterFooter.FontSize = 20

[dangelor]

Try...

ActiveSheet.PageSetup.CenterFooter = "&""Arial,Regular""&20&F"

[RJ1969]

Hi
Sorry I forgot to mention that I need to place the button in the other sheet and it will stay there. Can you indicate the code to work for Sheet2 only. Please.... thank you.

Sub Print_2_Pages()
    With ActiveSheet
        .PageSetup.PrintArea = ""
        .ResetAllPageBreaks

        .PageSetup.PrintArea = "$A$1:$T$44"
        .HPageBreaks.Add Before:=Range("A32")
    End With
End Sub

[dangelor]

Replace

With ActiveSheet

with

With Worksheets("Sheet2")

[RJ1969]

Hi
the center footer showed "FONTSETTING" which is the name for workbook.
It should say "JULY 2020"

I added the code in it. Can you please double check to see if it correct.
Instead of arial, can you make it arial black to make it more bolded?


Thanks :o )

[dangelor]

Try

        .CenterFooter = "&""Arial Black,Regular""&20&D"
        .CenterHeader = "&""Arial Black,Regular""&20&D"

and adjust your margins to fit the text.

[RJ1969]

Hi
I saw you add the &[DATE]. I removed that.
Does it suppose to create a footer and header because of this code?

.CenterHeader = "TESTING 1" 'CHANGE HERE
        .CenterHeader = "&""Arial Black,Regular""&11&D"

Let say I typed Testing 1 as a centerheader and footer center is "Testing 2"

what ever I typed something on that code, it suppose to appear in the sheet, right?

[RJ1969]

When it prints it shows the date and not the testimg 1 or testimg 2 as a header and footer

Thanks

[RJ1969]

Hi Deangelor,

Nevermind, I was able to figured it out.

Thank you for all you help.

[dangelor]

OK and good luck!

[RJ1969]

Hello

I have more favor to ask, if you can add a color red on the font on the JULY 2020 on the code below. Please.... thank you.

.CenterHeader = "&""Georgia Pro Black,Regular""&10& JULY 2020"

[RJ1969]

Should I replaced “regular” to “Ref”? Or is there ant code to add in it.

Thanks

[RJ1969]

I meant “Red”