Marco for adjusting page layout

I need a macro that will change payge layout to landscape, adjust paper size to legal, and adjust scale to fit with width 1 page and height automatic. I have a macro for adjusting page layout to landscape that you can use as a base for the rest, I'm assuming they will be similar i just don't know codes for anything.
'
Sub PrinterFriendly()
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
End Sub

Excel has a built in feature called record macro. If you activate the record macro then perform the operations that you indicated in your post it will probably create a code that will work for you. Give it a try and report back.

I got it to work, my issue was that when i set scale to fit width at 1 and wanted to leave scale to fit height at automatic, it would set the scale to fit height at 1 as well. It was solved by setting the scale to fit height at 999, a number which I won't hit at least for the file i was working on. So it looked like:

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.FitToPagesWide = 1
.FitToPagesTall = 999
.Zoom = False
End With