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
kodu deneyemedim
Liste Kutusunun Tümünün Raporunu Almak
Konuyu Okuyanlar: 1 Ziyaretçi