22/08/2020, 23:53
24/08/2020, 15:03
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
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
pagesetup bloğuna ekleyeceğiniz
'.Orientation = xlLandscape 'yatay sayfa düzeni
.Orientation = xlPortrait 'dikey24/08/2020, 15:55
(24/08/2020, 15:10)berduş yazdı: [ -> ]pagesetup bloğuna ekleyeceğinizpagesetup bloğuna ekleyeceğiniz ? nereye ekleyeceğimi bulamadım.
kodlar ile sayfayı yatay yada dikey ayarlayabilirsiniz'.Orientation = xlLandscape 'yatay sayfa düzeni
.Orientation = xlPortrait 'dikey
24/08/2020, 15:58
6 - 10. satır arası with sheets ile end with arasi
25/08/2020, 12:52
Sorun çözüldü teşekkürler iyi çalışmalar .