Kod:
Dim klasorsec As Integer
Dim yoluyaz As String
klasorsec = Application.FileDialog(msoFileDialogFolderPicker).Show
yoluyaz = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
If klasorsec <> 0 Then
DoCmd.OpenReport "rpr_toplu", acViewPreview, , "[Kimlik]=" & Me.Metin10, acHidden
DoCmd.OutputTo acOutputReport, "rpr_toplu", acFormatPDF, yoluyaz & "\" & "TOPLULUK.PDF" ',
End If
DoCmd.Close acReport, "rpr_toplu", acSaveNo