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

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.