Print to PDF problem

Hi all, I have a macro to print to PDF. Problem I am having is when I run it, it changes my margins and prints across multiple pages instead of the margins I set. Here is the code I am using:

Sub Export_to_pdf()
    ChDir "/Users/name/Desktop/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/name/Desktop/" & Cells(1, 1).Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Is there anything I can add or change so this doesn't happen?

Thanks!

Sure here is my file

Sorry was having a problem attaching it. Here it is

Yes that's what it should look like but when I do it from my workbook which it changes it and prints it over 4-5 different pages, could it be related to other sheets on my excel file? I ended up taking out a lot of the merged cells, made the text smaller and made the dates shorter in length and now it works. Thanks for your help