aslında doğrudan raporlanacak sayfanın yazdırma özelliklerinden ayarladığınızda daha önce yazılan pdf yapma kodları zaten o özelliklere göre çıktı alacağından siz sayfayı 1 sayfaya sıgdır olarak ayarlamışsanız o kod yeterli
ama o özelliklerden bağımsız olarak tek sayfaya sığdırmasını istiyorsanız

'hy Sayfayı Pdf olarak kaydet

dosyaAdıAdresi = ThisWorkbook.Path & "\RAPORLAMATrue.pdf"

'Sheets("RAPORLAMA").Select

'aşağıdaki with ... end with arası excelde sayfa düzenini ayarlamışsanız gereksiz

With Sheets("RAPORLAMA").PageSetup 'Yazma düzeni 

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

End With

Sheets("RAPORLAMA").ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=dosyaAdıAdresi, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True