Vba aldığımız verileri tam tek sayfaya nasıl düzgün bir şekilde tek sayfa sığdıra biliriz.

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

pagesetup bloğuna ekleyeceğiniz

'.Orientation = xlLandscape 'yatay sayfa düzeni

        .Orientation = xlPortrait 'dikey

kodlar ile sayfayı yatay yada dikey ayarlayabilirsiniz

(24/08/2020, 15:10)berduş yazdı: pagesetup bloğuna ekleyeceğiniz

'.Orientation = xlLandscape 'yatay sayfa düzeni

        .Orientation = xlPortrait 'dikey

kodlar ile sayfayı yatay yada dikey ayarlayabilirsiniz

pagesetup bloğuna ekleyeceğiniz ? nereye ekleyeceğimi bulamadım.

6 - 10. satır arası with sheets ile end with arasi

Sorun çözüldü teşekkürler iyi çalışmalar .