AccessTr.neT

'Burada  raporların toplu  pdf kodu mevcut



DoCmd.OpenReport "rpr_sporcular", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_sporcular", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_sporcular", acSaveNo



DoCmd.OpenReport "rpr_Atama", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_Atama", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_Atama", acSaveNo



DoCmd.OpenReport "rpr_mar", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_mar", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_mar", acSaveNo





DoCmd.OpenReport "rpr_mKART", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_mKART", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_mKART", acSaveNo





DoCmd.OpenReport "rpr_perfor", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_perfor", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_perform", acSaveNo





DoCmd.OpenReport "rpr_kma", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_kma", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_kma", acSaveNo



DoCmd.OpenReport "rpr_dallar", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_dallar", acFormatPDF  ',  dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir

 DoCmd.Close acReport, "rpr_dallar", acSaveNo





'Burada  raporların toplu  pdf kodu biter

bu kodu kullanarak raporları toplu halde pdf olarak dışa aktarım yapıyoruz,lakin PDF isimleri rapor adları ile aynı oluyor,oysa biz isim versek???

acFormatPDF kodundan sonra virgül ekleyip konum+ad şeklinde yazılabilir

DoCmd.OpenReport "rpr_sporcular", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden

 DoCmd.OutputTo acOutputReport, "rpr_sporcular", acFormatPDF, "d:\raporlar\" 

 & "rpr_sporcular" & Me.Metin45 & ".pdf"

Gibi

Bahsettiğiniz şekliyle yaptım ancak değişen birşey olmuyor,


rpr_sporcular raporunu rpr_sporcular.pdf şeklinde dışa aktarıyor yani kayıt yapıyor.Biz Sporcular.pdf olmasını istiyoruz.

Var mı yardımcı olabilecek birisi?

Yazdığınız kodun son halini yollar misiniz?

Örneğin rpr_aylar raporunu dışarıya pdf olarak kaydetme butonunun tıklandığında olay yordamına aşağıdaki şu kodu yazıyorum

DoCmd.OpenReport "rpr_aylar", acViewPreview, , "[Kimlik]=" & Me.Metin45, acHidden DoCmd.OutputTo acOutputReport, "rpr_aylar", acFormatPDF, "C:\RaporlarPDF\" & "rpr_aylar" & Me.Metin45 & ".pdf"

ama sonuç itibariyke pdf ismi yine rpr_aylar oluyor.Biz bunun Aylar.Pdf olmasını istiyoruz.