Macro for "Set Print Area".

Is there a way to write a Macro the sets the print area
of a work sheet regardless of how big it is?

IE: 1 sheet might be 12 columns wide but 40 rows long.
or 1 sheet might have 15 columns but 1100 rows,etc.

Wishful thinking.

I can write a macro to easily set the Print area for
each sheet I create, But I thought it might be
possible to do it using a CTRL + " HOT KEY" for
anything I create.

Thanks,
Mike