Как экспортировать несколько диапазонов в PDF на одном листе только с помощью VBA

Question

Я пытаюсь экспортировать несколько диапазонов в PDF и уместить только на одном листе. Какое свойство мне не хватает для устранения этой проблемы? Прямо сейчас это разделено на два многократных листа на одном PDF.

Sub Printing()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintArea = ActiveSheet.Range("A01:R6, A26:R50").Address
 End With
 Application.PrintCommunication = True

 fname = ThisWorkbook.Path & "\test.pdf"
 ActiveSheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 Filename:=fname, _
 Quality:=xlQualityStandard, _
 IgnorePrintAreas:=False, _
 IncludeDocProperties:=True, _
 OpenAfterPublish:=True

 End Sub