(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.