Maalesef bilgisayar olmadığından yardımcı olamayacağım? Belirtilen konuda raporların nasıl adlandırabilecegi ve kaydedilecek yerin seçilmesi ile ilgili ayrıntılı bilgi verilmekte, bu konuda da liste kutusundaki elemanların tümünü döngüye ekleme var. Geriye sadece birleştirmek kalıyor. Kodlar dikkatlice incelendiğinde biraz uğraşı biraz da deneme yanılma yöntemi ile yapabilirsiniz
ne yaptımsa olmadı,başka yardımcı olacak kimse yok mu?
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
Çok tşk ederim tam isteğim gerçekleşti.Bu koda bir de doğrudan yazıcıya yollama kodu eklenebilir mi?Evetse tam olarak hangi kısma ekleme yapılmalıdır?
süreç istediğim gibi sonuçlandı tşk ederim.