PDF Formatında Kayıt

[ormann]

İyi günler ekli dosyadaki ilan sayfasını PDF Formatında İlan sayfasındaki M4 hücresindeki isimle masaüstüne(masaüstünü kendisi bulacak) kayıt yapabilir miyiz?

http://dosya.co/3e3fw7p25sm5/İLAN_TUTANAĞI.xls.html

 

[ormann]

Konu ile ilgili desteğinizi bekliyorum.Saygılar

 

[ormann]

Konuya yardımcı olur musunuz?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub PdfKaydet()
Dim s1 As Worksheet, isim As String
Set s1 = Sheets("İLAN")
isim = s1.Range("M4").Text
s1.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
            "\" & isim & ".pdf", OpenAfterPublish:=False
End Sub

 

[turist]

Aşağıdaki Kodu veri sayfanızdaki "PDF" butonuna bağlayıp deneyin.

Sub PDFYAP()
Dosya = Environ("USERPROFILE") & "\Desktop\" & Sheets("İLAN").Range("M4") & ".pdf"

Sheets("İLAN").Range("A1:I35").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Dosya, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False


End Sub

 

[ormann]

Sayın Turist ofis 2003 yüklü pc de neden olmuyor ?

 

[turist]

Sayın Turist ofis 2003 yüklü pc de neden olmuyor ?

ÖmerBey'in cevabını deneyin.

 

[ormann]

O da olmadı

 

[turist]

Verdiğimiz kodlarda yer alan "İLAN" olarak görülen kısımlar , kopyalayıp VBA sayfasına yapıştırdığınızda "ILAN" oluyor ise;
Lütfen VBA Sayfasında kod bölümünde bu hatayı düzeltip deneyin.

 

[Ömer BARAN]

Merhaba.

Gördüğüm kadarıyla soruyu soran üyenin kullandığı Excel versiyonu 2003.

Yanlış hatırlamıyorsam; standart 2003 versiyonda PDF olarak kayıt yapılamıyor.
Sadece bunun için oluşturulmuş bir eklentiyle mümkün olacağını duymuş idim.
.

 

[halit3]

Pdf formatında çıktı almak için ofis2003 üstü versiyon olması gerekiyor.
Aşağıdaki linki irdeleyiniz. ofis2007 için eklenti mevcut

http://www.excel.web.tr/f48/stenen-sayfalary-tek-parca-olarak-pdf-yapmak-t157469.html

http://www.excel.web.tr/f48/pdf-kaydetme-yeri-secme-t89545.html#post488109

 

[ormann]

Günaydın ;
Aşağıdaki kod ekli dosyada sadece "Tekkeköy" sayfasını PDF olarak masaüstüne kayıt yapıyor.Benim yapmak istediğim aynı buton ile hem "Tekkeköy" sayfasını hemde "Gölardı " sayfasını masaüstünde İLAN klasörü oluşturup ,bu iki sayfayı bu klasörün içerisine PDF formatı olarak kayıt yapması.Bu konu ile ilgili yardımcı olurmusunuz?
http://dosya.co/44yyhfe4f5na/İLAN_TUTANAĞI.xls.html

Sub PDFYAP()
Dosya = Environ("USERPROFILE") & "\Desktop\" & Sheets("TEKKEKÖY").Range("M4") & ".pdf"
Sheets("TEKKEKÖY").Range("c8:I32").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Dosya, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

End Sub

 

[turist]

Sub PDFYAP()
Application.ScreenUpdating = False
    klasör = Environ$("USERPROFILE") & "\Desktop\" & "İLAN"
    If Len(Dir(klasör, vbDirectory)) = 0 Then MkDir klasör

Dosya1 = klasör & "\" & Sheets("TEKKEKÖY").Range("M4") & ".pdf"
Sheets("TEKKEKÖY").Range("c8:I32").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Dosya1, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
Dosya2 = klasör & "\" & Sheets("GÖLARDI").Range("M4") & ".pdf"
Sheets("GÖLARDI").Range("c8:I32").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Dosya2, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    MsgBox Sheets("TEKKEKÖY").Range("M4") & "  ve  " & Sheets("GÖLARDI").Range("M4") & "  PDF dosyaları   Masaüstündeki İLAN klasörüne kaydedildi"
Application.ScreenUpdating = True
End Sub

 

[ormann]

Çok teşekkür ederim.