Tengo un código que formatea una hoja de trabajo con la configuración y el diseño deseados (una página de ancho y alto en horizontal). Cuando ejecuto el código (parte de una macro larga) formatea la configuración de página correctamente.

Si lo exporto manualmente y lo guardo como un pdf, entonces usa la configuración de página correcta, produciendo un PDF de una página que está en horizontal. Sin embargo,La misma exportación realizada por VBA produce un PDF de varias páginas de largo y en vertical.

No puedo entender por qué está haciendo esto. He intentado varias soluciones, como seleccionar la hoja de trabajo antes de exportarla, pero fue en vano.

Cualquier ayuda es apreciada.

El código se ve así:

Sub SaveAsPDF()
Sheets(ReportWsName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [SaveFolderPath] & "\" & ReportWsName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

ACTUALIZAR:

Código utilizado para formatear la configuración de página (dado que es bastante largo, solo estoy agregando la sección relevante de ese sub)

Private Sub CreateNewReport(ProvisionCode As String, TimeFrom As Date, TimeTo As Date)

... other code here...

'Format report to create the desired layout
With Worksheets(ReportWsName)
    'Delete unnecessary data and format the rest
    .Range("A:B,D:D,F:G,J:M,O:O,Q:S").Delete Shift:=xlToLeft
    .Range("A:F").EntireColumn.AutoFit
    .Range("C:C, E:F").ColumnWidth = 30
    With .Range("G:G")
        .ColumnWidth = 100
        .WrapText = True
    End With
    'Insert standard formating header form Reporting template
    .Rows("1:2").Insert
    wsReportTemplate.Range("1:3").Copy .Range("A1")
    .Range("A2") = "Notes Report for " & ProvisionCode & " (" & TimeFrom & " - " & TimeTo & ")"
    'Insert standard formating footer form Reporting template
    wsReportTemplate.Range("A6:G7").Copy .Range("A" & .UsedRange.Rows.Count + 2)
    'Ensure all data is hard coded
    .UsedRange.Value = .UsedRange.Value
    'Format Print Area to one Page
    With ActiveSheet.PageSetup
        .PrintArea = Worksheets(ReportWsName).UsedRange
        .Orientation = xlLandscape
        .FitToPagesWide = 1
    End With
End With

End Sub