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