+- 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 - berduş - 18/10/2019
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"Cvp: Raporları Pdf Olarak Kayıt - alimadam - 18/10/2019
aynı hatayı alıyorum siz denediniz mi uygulama üzerinde? denenmiş halini atar mısınız?
Cvp: Raporları Pdf Olarak Kayıt - ozanakkaya - 18/10/2019
(18/10/2019, 12:18)ozanakkaya yazdı: Örneğinizin son halini ekler misiniz?
Raporları Pdf Olarak Kayıt - alimadam - 18/10/2019
ekte yolladım
Cvp: Raporları Pdf Olarak Kayıt - ozanakkaya - 18/10/2019
Ö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,
Cvp: Raporları Pdf Olarak Kayıt - alimadam - 18/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.
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??