ozanakkaya Adlı Kullanıcıdan Alıntı: 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.
