Skip to main content

AccessTr.neT


Vba Oluşturduğumuz Pdf

Vba Oluşturduğumuz Pdf

Çözüldü #1
Vba aldığımız verileri tam tek sayfaya nasıl düzgün bir şekilde tek sayfa sığdıra biliriz.
Cevapla
#2
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
Cevapla
#3
pagesetup bloğuna ekleyeceğiniz
'.Orientation = xlLandscape 'yatay sayfa düzeni
.Orientation = xlPortrait 'dikey
kodlar ile sayfayı yatay yada dikey ayarlayabilirsiniz
Cevapla
#4
(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.
Cevapla
#5
6 - 10. satır arası with sheets ile end with arasi
Cevapla
#6
Sorun çözüldü teşekkürler iyi çalışmalar .
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task