Çok, çok teşekkürler Hocam ellerinize sağlık. Çok güze olmuş.
Hocam konuyu taşıyabilirsiniz saygılar.

(02/11/2016, 01:47)ozanakkaya yazdı: Dim PencereAc As FileDialog Dim AktarilanBelge As Variant
Set PencereAc = Application.FileDialog(msoFileDialogSaveAs)    
   With PencereAc        .Title = "Rapor Kaydet"        .InitialFileName = "Genel Rapor " & Format(Now(), "ddmmyyyyhhnn") & ".pdf"        
       If .Show = True Then        
           For Each AktarilanBelge In .SelectedItems                DoCmd.OutputTo acOutputReport, "GenelRapor", acFormatPDF, AktarilanBelge & ".pdf", True            Next AktarilanBelge        Else            MsgBox "Dosya seçilmedi"        End If    End With

PDF olarak kaydetmek için verdiğiniz yukarıdaki kodu, bu projeden bağımsız olan Formumda buton oluşturup tıkladığında olayına ekledim. Fakat şu uyarıyı veriyor;
PencereAc As FileDialog seçili bir şekilde : compile errror: user defined type not defined
Modül mü eklemem lazım.

sayın mehmetb84,

Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.

bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakılmasını ve incelemesini de sağlamış olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.

(01/11/2016, 16:18)atoz112 yazdı: sayın m_demir,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
klasörü seçtikten sonra,Kaydet Diyalog Penceresindeki TAMAM butonuna tıklamanız yeterlidir.

bilginize...iyi çalışmalar,saygılar.

(02/11/2016, 11:19)atoz112 yazdı: sayın m_demir,

EK'te;

konunuzun 3.mesajında

Alıntı:Klasörü seçtikten sonra bir önceki raporun üstüne değil de faklı olarak kayıt yapmasını istiyorum. O denenle diyalog penceresi açıldığı zaman Klasör Adı: gibi Dosya Adı: metin kutusu da olsa çok iyi olur. 

bahsettiğiniz talebinize yönelik,alternatif kullanım olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın atoz arkadaşımız, örneği indirince direkt çalışma moduna geçiyor, bu sebeple kodu göremiyorum, bu benim de tam istediğim bir şey, senden ricam kodu verme şansın var mı, raporda PDF ismini manuel olarak elle girme... Saygılarımla

sayın adaletinsesi,

bahsettiğiniz talebinize yönelik olarak;

ilgili örneği çalıştırmak için açmadan önce;direkt çift tıklamak sureti ile açmak yerine uygulamanın üzerine sol tuş ile bir kez tıklayıp aktifleştirdikten sonra SHIFT tuşuna basılı tutarak bırakmaksızın uygulamayı ister ENTER ile isterseniz de çift tıklama ile iyicene ekranda belirene kadar açılmasını bekleyiniz.

ardından,kodları görmek üzere de;
ALT + F11 tuşlarını kullanınız.

bilginize...iyi çalışmalar,saygılar.