Format Spreadsheet Macro

Greetings,
Having trouble with what should be a simple macro.

All I want to do is set spreadsheet to the following.

Paper size: Legal
Orientation: Landscape
Print Area: 1 page wide by 3 pages tall


Pretty simple to record, however when I run macro it takes anywhre 45 seconds to 3 minutes to run.

Any and all help is greatly appreciated.