Raporları Pdf Olarak Kayıt

1 2 3 4 5 6
14/10/2019, 12:20

alimadam

Kod bilgim yok,makrolarla yapmaya çalıştım ama olmadı.Ekteki örnekte açılan kutu ile kişiyi seçip,bilgileri ekrana getirmek istiyorum ve ekrana gelen kişiye ait tüm raporları (rpr_son1-2-3-4) butona bastığımda tek pdf de olabilir ya da ayrı ayrı pdf olabilir , masaüstünde seçtiğim bir yere kayıt yapılmasını sağlamaya çalışıyorum.

Kod bilgisi olmadan sanırım başaramayacağım,bana yol gösterebilir misiniz?
14/10/2019, 14:33

berduş

1 - açılır kutunun veri kaynağına aşağıdaki kodu ekleyin
SELECT Tablo1.Kimlik, Tablo1.ad
FROM Tablo1;
2 -  açılır kutunun :sütun sayısı--> 2  yapın
3 -  açılır kutunun :sütun genişliğini--> 0 yapın
4 - açılır kutunun : değiştiğinde olayına aşağıdaki kodu ekleyin
    Me.Recordset.FindFirst "[Kimlik]=" & Me.Metin28
______o0o_______
rapora gönder butonun koduna da aşağıdaki kodu ekleyin
ben sadece ikisi için yaptım diğer diğer formları da siz ekleyebilirsiniz
    DoCmd.OpenReport "rpr_son1", acViewNormal, , "[Kimlik]=" & Me.mtnkimlik, acHidden
    DoCmd.Close acReport, "rpr_son1"

    DoCmd.OpenReport "rpr_son2", acViewNormal, , "[Kimlik]=" & Me.mtnkimlik, acHidden
    DoCmd.Close acReport, "rpr_son2"
[attachment=30698]
14/10/2019, 14:42

alimadam

sayın berduş yolladığınız dosyayı inceledim şöyle bir problem var,
1-masaüstüne kayıt yapıyor aynı zamanda yazıcı bağlıysa direkt yazdırıyor.Yazdırmak istemiyorum kağıt israfı olmasın diye.
2-masaüstüne kayıt olan pdf.dosyasını açmak istediğimde bir hata oluştu diye hata alıyorum,pdf açılmıyor.

nasıl çözümlerim yardımcı olur musun?
14/10/2019, 15:04

berduş

yazdır düğmesinin kodunu aşağıdaki ile değiştirir misiniz?
raporlara verdiğiniz isim sıralı olduğu -1,2,3,4 - için döngüye bağladım tek komutla yazdırılmasını istediğiniz raporlar için sıralamayı devam ettirip x değeri değiştirmeniz yeter
iyi çalışmalar
For x = 1 To 4
DoCmd.OpenReport "rpr_son" & x, acViewPreview, , "[Kimlik]=" & Me.mtnkimlik, acHidden
DoCmd.OutputTo acOutputReport, "rpr_son" & x, acFormatPDF ', dosyaYoluveAdını yazarsanız doğrudan seçtiğiniz yere yazabilir
DoCmd.Close acReport, "rpr_son" & x, acSaveNo
Next x
14/10/2019, 20:04

alimadam

Örneği inceledim rpr_son1-2-3-4 gibi sıralı değil de
rpr_gun
rpr_saat
rpr_kg
rpr_kisi şeklinde olsaydı kod düzenlemesini nasıl yapılır ?Bir diğer husus bu raporları ayrı ayrı pdf şeklinde değil de hepsini tek bir pdf olarak kaydetme şansı var mı?
14/10/2019, 20:23

berduş

Sıralı değilse her rapor için kodları tek tek yazmanız gerekir
1 2 3 4 5 6