Tenho um codigo para salvar em pdf, porem não consigo muda-lo para salvar em Paisagem.
Alguem pode me ajudar?

Utilizo esse codigo:

Private Sub cdmRELATORIOPDF_Click()

Application.DisplayAlerts = False
Dim EU
EU = "Agenda Telefônica"
    template_file = ActiveWorkbook.FullName
                 
           fileSaveName = Application.GetSaveAsFilename( _
        InitialFileName:=VBA.Strings.Format(EU) + ".PDF", _
        fileFilter:="Arquivo PDF (*.pdf), *.pdf")
         
                    
     If fileSaveName <> False Then
                  

            With ActiveSheet
               .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With

       End If
       

End Sub