Raporları Pdf Olarak Kayıt

1 2 3 4 5 6
18/10/2019, 12:23

berduş

Dim MtnAdres As String
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

'Optional: FileDialog properties
fDialog.title = "Dosyanın kaydedileceği yeri seçin"
fDialog.InitialFileName = "C:\"

If fDialog.Show = -1 Then MtnAdres = fDialog.SelectedItems(1)
DoCmd.OutputTo acOutputReport, "rpr_son1", acFormatPDF, MtnAdres & "\" & Me.ad & ".pdf"
18/10/2019, 13:40

alimadam

aynı hatayı alıyorum siz denediniz mi uygulama üzerinde? denenmiş halini atar mısınız?
18/10/2019, 13:42

ozanakkaya

(18/10/2019, 12:18)ozanakkaya yazdı: Örneğinizin son halini ekler misiniz?
18/10/2019, 13:56

alimadam

ekte yolladım
18/10/2019, 14:00

ozanakkaya

Örneğinizi inceledim. Önceki mesajımda eklenmesi gerektiğini belirttiğim, sizin eklediğinizi söylediğiniz referans nerede acaba?

(17/10/2019, 14:51)ozanakkaya yazdı: Referanslara "microsoft Office XX.0 Object Library" isimli referansı ekle,


18/10/2019, 14:07

alimadam

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.


microsoft Office XX.0 Object Library  sizin attığınız son mesajdaki resimde işaretli olanlar arasında üstten 2.olan değil mi?? 

Sizin işaretlediğiniz ile microsoft Office XX.0 Object Library    söylediğiniz aynı değil sanki yanılıyor muyum??

Kafam karıştı microsoft Office XX.0 Object Library  olansa ekli zaten,  microsoft Office 15.00 Access databese....olan ise bunu demediğiniz için eklemedim bu mu eklenecekti??
1 2 3 4 5 6