AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Vba Oluşturduğumuz Pdf

22/08/2020, 23:53

merttr07

Vba aldığımız verileri tam tek sayfaya nasıl düzgün bir şekilde tek sayfa sığdıra biliriz.
24/08/2020, 15:03

berduş

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
24/08/2020, 15:10

berduş

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:55

merttr07

(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.
24/08/2020, 15:58

berduş

6 - 10. satır arası with sheets ile end with arasi
25/08/2020, 12:52

merttr07

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