Dim stDocName As String 

Dim criteria As String 

Dim MtnAdres As String 

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) 

'Optional: FileDialog properties 

fDialog.title = "Dosyanın kaydedileceği yeri seçin" 

fDialog.InitialFileName = "C:\" 

If fDialog.Show = -1 Then MtnAdres = fDialog.SelectedItems(1) 

For x = 0 To Metin11.ListCount - 1 

IdLng = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir   

stDocName = "rpr_dallar"     

criteria= "K_id=" & IdLng 

DoCmd.OpenReport stDocName, acViewPreview, , criteria, acHidden

DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, MtnAdres & "\" &  Metin11.Column(1, x ) & ".pdf"

DoCmd.Close acReport, stDocName , acsaveno 

Next x