AccessTr.neT

Tam Versiyon: Raporları Pdf Olarak Kayıt
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6
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?
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]
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?
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
Ö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ı?
Sıralı değilse her rapor için kodları tek tek yazmanız gerekir
Sayfalar: 1 2 3 4 5 6