AccessTr.neT

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.

ozan'ın vermiş olduğu kodu butona eklediğimde  resimlerdeki hatayı alıyorum.

HATA RESMİ 


DEBUG ETTİĞİMDE KODDAKİ HATALI KISIM

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.

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

evet bahsettiğiniz referans daha önceden ekliydi-kaldırıp yeniden ekledim ama resimde ifade ettiğim hatayı alıyorum.

Örneğinizin son halini ekler misiniz?