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...

Please Login or Register  to view this content.

[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...

Please Login or Register  to view this content.

[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.

Please Login or Register  to view this content.

[dangelor]

Replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

[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

Please Login or Register  to view this content.

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?

Please Login or Register  to view this content.

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.

Please Login or Register  to view this content.

[RJ1969]

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

Thanks

[RJ1969]

I meant “Red”