Sheet3.ExportAsFixedFormat Type:=xlTypePDF, _
Filename: = path & "\" & partner & Section, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

We are printing to PDF hundreds of docs so I made a macro for it. This saves my PDF just fine, however instead of a 8x11 page, it resizes to 12.xx x 16.xx, any help on how I can fix this?