+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba Oluşturduğumuz Pdf (/konu-vba-olusturdugumuz-pdf.html)
Vba Oluşturduğumuz Pdf - merttr07 - 22/08/2020
Vba aldığımız verileri tam tek sayfaya nasıl düzgün bir şekilde tek sayfa sığdıra biliriz.
RE: Vba Oluşturduğumuz Pdf - berduş - 24/08/2020
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
RE: Vba Oluşturduğumuz Pdf - berduş - 24/08/2020
pagesetup bloğuna ekleyeceğiniz
'.Orientation = xlLandscape 'yatay sayfa düzeni
.Orientation = xlPortrait 'dikeyRE: Vba Oluşturduğumuz Pdf - merttr07 - 24/08/2020
(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
RE: Vba Oluşturduğumuz Pdf - berduş - 24/08/2020
6 - 10. satır arası with sheets ile end with arasi
RE: Vba Oluşturduğumuz Pdf - merttr07 - 25/08/2020
Sorun çözüldü teşekkürler iyi çalışmalar .