Macro: Print Area on a variable range of Columns and Rows

[dmainou]

Hi,

Could you please help me with a macro that will set the Print Area of a report based on the current lenght and width.

I have found macros that will set the Print area for reports of variable lenght but nothing for variable width.

I would love to be able to run the macro on the Active Sheet as I have several reports across a number of sheets.

Since the report is customised for the USER columns A:C are hidden as well as a large number of rows.

Your help is appreciated.

d

 

[Courts]

I would first define a name for the print range and make this dynamic using the offset formula and then specify in VBA to print this range.

Here is the offset formula to use:
=OFFSET(A1,0,0,COUNTA(A:A),COUNTA(1:1)

You should change A1 to the top left hand cell of your dataset (assuming it doesn't change)
You should change A:A to the column in your report that contains no blank cells
You should change 1:1 to the row where your columns headers are assuming there are no blanks.

This range will expand or contract as your data does

 

[dmainou]

Thanks,

I have found the macro to count the number of rows, but I'm struggling with the "collumn" side.

D