Enregistrer un PDF en format paysage

Bonjour à tous,

j'ai un grand tableau que j'aimerais mettre en PDF (ca marche bien) mais comme le tableau et trop grand, quand on imprimes on ne voit rien donc j'aimerais mettre la feuille PDF en formas paysage lors de l'enregistrement mais je n'y arrive pas

            CurFile = "C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
                                            Quality:=xlQualityStandard, IncludeDocProperties:=False, _
                                            OpenAfterPublish:=False
                                            'IgnorePrintAreas:=False,
            ActiveSheet.PageSetup.Orientation = xlLandscape

J'ai essayer de rajouter la dernière ligne du code dans tout les sens mais ca ne marche pas.

Quelqu'un peut-il m'aider ?

pour ceux qui veulent j'ai fini par trouver

            ActiveSheet.PageSetup.Orientation = xlLandscape
            ActiveSheet.PageSetup.Zoom = False
            ActiveSheet.PageSetup.FitToPagesTall = 1
            ActiveSheet.PageSetup.FitToPagesWide = 1

il faut rajouter ca avant d'enregistrer le classeur