AccessTr.neT

Sayfalar: 1 2 3 4 5 6

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"

aynı hatayı alıyorum siz denediniz mi uygulama üzerinde? denenmiş halini atar mısınız?

(18/10/2019, 12:18)ozanakkaya yazdı: [ -> ]Örneğinizin son halini ekler misiniz?

ekte yolladım

Ö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,

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??

Sayfalar: 1 2 3 4 5 6

berduş

alimadam

ozanakkaya

alimadam

ozanakkaya

alimadam