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?
Raporları Pdf Olarak Kayıt
1 - açılır kutunun veri kaynağına aşağıdaki kodu ekleyin
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
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
SELECT Tablo1.Kimlik, Tablo1.ad
FROM Tablo1;
2 - açılır kutunun :sütun sayısı--> 2 yapın3 - 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"
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?
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
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ı?
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
Konuyu Okuyanlar: 2 Ziyaretçi