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

Visual Basic Code
'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

Visual Basic Code
'.Orientation = xlLandscape 'yatay sayfa düzeni
        .Orientation = xlPortrait 'dikey

kodlar ile sayfayı yatay yada dikey ayarlayabilirsiniz

Cevapla
#4
(24/08/2020 15:10)berduş Adlı Kullanıcıdan Alıntı: pagesetup bloğuna ekleyeceğiniz

Visual Basic Code
'.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