Hi,

I have had a go at writing a macro to set the print area equal to A4 size
paper at 100% scaling.

However, it was crude and doesnt work very well.

I suspect there could be an easier way.


Currently I have

activesheet.pagesetup.printarea = "A1:XX"

XX = where I awkwardly calculate the bottom right cell which falls on the
natural page break for A4.

However this doesnt work all the time.

Is there an easier to way.
It is a relevant problem here because the row height and colums widths
change and I want the print area to follow the changes to maintain the A4
size

My question is how can I set the print area equal to the columns and rows
which occupy A4 at 100% scaling.
I know its a strange question but there is reason why I need to set the
print area myself.


Many many thanks
James