pdf olarak kaydetme

[acar6783]

Bu konu başlığında çok yazılan var fakat.
Sanırım benim officede eklenti yok .
https://support.office.com/tr-TR/article/PDF-ve-XPS-dosya-bi%C3%A7imlerinde-dosyalar%C4%B1-yazd%C4%B1rma-payla%C5%9Fma-ve-koruma-f9d35f8f-ca86-4cf9-bb91-4e6d2542eeef#__toc290894468
Buradaki adresten indirmeye çalışıyorum hata veriyor.

Sub sayfayi_pdf_kaydet()
tanimlamalar
rp.Range("A1:R" & rp.Cells(Rows.Count, "A").End(3).Row).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rp.Name & ".pdf"

End Sub

Kodlarım da bu şekilde
call agument hatası veriyor.

 

[komanchero]

Filename:=rp.Name & ".pdf

rp.name değilde Filename:= "D:\" & mysheetname & ".pdf" olarak denesen?

 

[acar6783]

Filename:=rp.Name & ".pdf

rp.name değilde Filename:= "D:\" & mysheetname & ".pdf" olarak denesen?

Kodu eksik yazmışım.O bölüm doğru fakat.

Eklenti yok sıkıntı sanırım ondan .
Normalde de faklı kaydet bölümünde Pdf seceneği yok.
Eklentiyi nasıl bulabilirim?

 

[acar6783]

Bütün forumlar siteler aynı linke yönlendirmiş.

We are sorry, the page you requested cannot be found.

Sayfa hatası veriyor.

 

[acar6783]

Azimli olunca bulunuyor

Bir tek alternatif link koyan bu siteye teşekkür ediyorum
http://www.dmry.net

Ben de ekliyeyim buradan ihtiyacı olan indirsin.

 

[halit3]

Aşağıdaki linklerde eklentiye ait linkler verilmiştir.


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

http://www.excel.web.tr/f48/ko-ullu-ve-birle-tirerek-pdf-kaydetme-t147913/sayfa2.html

http://www.excel.web.tr/f48/birle-351-tirerek-pdf-kaydetme-t146723.html

 

[acar6783]

Sorun aynı zaten burada da aynı microsoftun linkleri verilmiş.
Bağlandığınzda hata veriyor.

 

[halit3]

Evet linkler kaldırılmış
aşağıdaki linkdeki 1 nolu mesaja ben eklentiyi ekledim.

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

 

[acar6783]

Evet linkler kaldırılmış
aşağıdaki linkdeki 1 nolu mesaja ben eklentiyi ekledim.

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

Teşekkür ederim,
Ben de bir siteden bulup eklemiştim
5 nolu mesaj

 

[acar6783]

Aslında Bu gibi durumlarda bir yol düşündüm.
Bu şekilde eklenti yoksa kurmaya yönlendiriyor.
Kendi kodlarım bu şekilde örnek olması açısından paylaşmak istedim.

 Sub pdf_format_kaydet()
    Dim acacma As Boolean
     Dim varmı As Boolean
    Dim kls, yol
    tanimlamalar
    
    If raporlama.ac = False And raporlama.acma = False Then Exit Sub
    
    If raporlama.ac = True Then
acacma = True
ElseIf raporlama.acma = True Then
acacma = False
End If

Set kls = CreateObject("Scripting.FileSystemObject")

    yol = CreateObject("Wscript.Shell").Specialfolders("Desktop") & "\Rapor"
  varmı = kls.FolderExists(yol)
  If varmı = False Then kls.CreateFolder yol

    isim = "rapor_" & Format(Now, "ddmmyyyy_hhmm")

On Error GoTo hata
    rp.Range("A1:R" & rp.Cells(Rows.Count, "A").End(3).Row + 1).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=acacma
        Exit Sub
    
hata:
If MsgBox("Bu Bilgisayarda Pdf Eklentisi Mevcut Değil" & Chr(13) & "Eklenti Kurulsun mu ? ", vbYesNo, "Uyarı") = vbYes Then
Shell ThisWorkbook.Path & "\saveaspdf\" & "SaveAsPDF.exe"
Else: Exit Sub
End If
    End Sub