Need to save an Excel Worksheet as a PDF and KEEP print settings.

[Stevep4]

I have the below code set up to take an excel tab and save is as a PDF file. As an Excel tab, I have the page set up the way I want. However, when I export it as a PDF, the settings are gone. It automattically makes is legal and portrait, as opposed to letter and lanscape. Below is my code.

Sub ExportSheet1()
Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "S:\Business Analysis\Sheet1.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

At this point, I would settle for being able to simple open each PDF and save the formatting. I can't even do that. The only way is for each person to manually change each pdf to letter/landscape before they print.