+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporları Pdf Olarak Kayıt (/konu-raporlari-pdf-olarak-kayit.html)
Cvp: Raporları Pdf Olarak Kayıt - ozanakkaya - 17/10/2019
Pdf kaydetme kodunuzun son halini bilmiyorum.
Referanslara "microsoft Office XX.0 Object Library" isimli referansı ekle,
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
GetFolderName = vbNullString
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = OpenAt
.Show
For lCount = 1 To .SelectedItems.Count
GetFolderName = .SelectedItems(lCount)
Next lCount
End With
DoCmd.OutputTo acOutputReport, "rpr_son1", acFormatPDF, GetFolderName & "\" & Me.ad & ".pdf"Buradaki GetFolderName seçtiğiniz dizindir. docmd.outputto kısmını sizdeki koda göre güncelleyin.
Cvp: Raporları Pdf Olarak Kayıt - alimadam - 18/10/2019
ozan'ın vermiş olduğu kodu butona eklediğimde resimlerdeki hatayı alıyorum.
HATA RESMİ
DEBUG ETTİĞİMDE KODDAKİ HATALI KISIM
Cvp: Raporları Pdf Olarak Kayıt - alimadam - 18/10/2019
PDF kayıt yerini bizim seçebilmemiz lazım,berduş un yolladığı kod doğrudan belgelerim klasörüne atıyor ancak orada farklı konularda .çok dosya olduğundan içlerinden arayıp bulmak vs sorun oluyor.
Kayıt yerini seçebilmemiz gerekiyor.
Cvp: Raporları Pdf Olarak Kayıt - berduş - 18/10/2019
Sayın @alimadam az önce Ozan hocamın kodunu denedim sorunsuz çalıştı
(17/10/2019, 14:51)ozanakkaya yazdı: Referanslara "microsoft Office XX.0 Object Library" isimli referansı ekle,"microsoft Office XX.0 Object Library" referansını eklediniz mi? kontrol eder misiniz
Cvp: Raporları Pdf Olarak Kayıt - alimadam - 18/10/2019
evet bahsettiğiniz referans daha önceden ekliydi-kaldırıp yeniden ekledim ama resimde ifade ettiğim hatayı alıyorum.
Cvp: Raporları Pdf Olarak Kayıt - ozanakkaya - 18/10/2019
Örneğinizin son halini ekler misiniz?