Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.

 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