excel dosyasından istenilen sekmeleri PDF olarak kaydetme

[modoste]

merhaba sayın hocalarım
bir arkadaşımın çalışma dosyasında gördüğüm bi detayı sormak istedim

çalışması 100 sekmeden fazla
ancak her gün rapor gönderirken 10 tanesini PDF olarak ayrı birşekilde kaydediyo
bu nasıl yapılır.
istenilen sekmeleri pdf olarak kaydetme

 

[acar6783]

Sub pdfkaydet()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\Kitap1.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

bu şekilde kod eklersniz siz de sayfayı pdf olarak kaydedebilirsiniz
başka deyişle "farklı kaydet=pdf"

 

[modoste]

kodu eklediğimde ne yapmam gerekecek sayın acar6783
pdf olmasını istediğim sekmeleri tek tek seçip mi bir şey yapmam lazım yoksa
tek seferde bir çok sekmeyi mi seçecem tam anlayamadım

 

[acar6783]

nasıl olmasını isterseniz ona bağlı yukarıdaki kodda aktif olan sayfayı pdf olarak açar.
eğer birden fazla sayfa seçmek isterseniz de ona göre düzenlemeler yapılabilir..
örnek dosyanızı eklerseniz eğer onun üzerinden gidebiliriz

 

[modoste]

başka bir pc den yazdığım için dosya ekleyemedim kusura bakmayın daha detaylı soru olarak yarın dönebilirim
mesela şöyle sayfalardan birisi dikey konumda diğeri yatay konumda sayfa sonu olarak da ayarlanmış
peşine olan 2 sekme tek pdf de altalta dikey olarak birleştirilmiş.

 

[acar6783]

ekteki dosyayı inceleyip dönüş yaparmısınız

 

[acar6783]

açklama:
"pdf yazdırma sayfası "isimli sayfada tüm varolan sayfa isimleri (siz ekleseniz de çikarsaniz da ) "a"sütununda listelenecek siz buradan yazdrmak istediniz sayfa ismini seçip butona tikladiginizda sayfa ismini belirten bir mesaj kutusu cikacak ve sayfaniz pdf olarak açilacak