Estoy tratando de convertir un archivo de Microsoft Excel con una gran cantidad de columnas (más de 70) en pdf usando un código Excel VBA.

En el libro de trabajo activo, estoy tratando de guardar 'Hoja1' en formato PDF en la ruta requerida. tengo el siguiente código.

Sub GetSaveAsFilename()

Dim fileName As String

fileName = Application.GetSaveAsFilename(InitialFileName:="", _
                                         FileFilter:="PDF Files (*.pdf), *.pdf", _
                                         Title:="Select Path and FileName to save")

    If fileName <> "False" Then

        With ActiveWorkbook

           .Worksheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
           fileName, Quality:=xlQualityStandard, _
           IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        End With

    End If
End Sub

Cuando ejecuto el código VBA y guardo el archivo pdf, veo eso; toda la hoja excels no se ajusta en la misma página. Muestra algo de contenido en la página siguiente.

(Solo aparecen pocas columnas en la primera página, las restantes aparecen en la página siguiente, etc.).

Lo comprobé con¿Cómo publicar una hoja de trabajo amplia en formato PDF?.

Pero, configurar el diseño de la página en horizontal y convertir el archivo de Excel manualmente en PDF; También muestra algunas columnas en las páginas siguientes.

Hay muchosConvertidor Excel a PDF gratuitos disponibles en línea, que me dan los mismos resultados.

¿Hay alguna función disponible en VBA, a través de la cual pueda ajustar todas las columnas en una sola página de PDF?