Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FONKSiYON] Tüm formlarda tek kodla yazdırma

[FONKSiYON] Tüm formlarda tek kodla yazdırma
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#1
19-01-2012, 18:35
Bir çok formda yazdır butonu kullanıyorum para birimini veya rakamları yazıyla yazdırıldığı gibi bir fonksiyon açık olan formu yazdır şeklinde bir kod hazırlasak tıklandığında olayına bu fonkisyonu koyduğumuzda tüm formlarda çalışırmı nasıl bir fonksiyon kullanmak gerekir .Şu anda mevcut haliyle aşağıdakigibi kullanıyorum.[/code]


Visual Basic
  1. DoCmd.SelectObject acForm, "Rpr_KASA_GUNLUKHAREKET", True
  2.     DoCmd.RunCommand acCmdPrint
  3.     DoCmd.SelectObject acForm, Screen.ActiveForm.Name, False


[code=sql]



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#2
19-01-2012, 23:25
Bunu VBA penceresi içerisinde ayrı bir modül oluşturup içerine

Visual Basic
  1. Sub Yazdir()
  2. DoCmd.SelectObject acForm, "Rpr_KASA_GUNLUKHAREKET", True
  3.     DoCmd.RunCommand acCmdPrint
  4.     DoCmd.SelectObject acForm, Screen.ActiveForm.Name, False
  5. End Sub



Daha sonra yazdırmak istediğiniz yerden;
Visual Basic
  1. Call Yazdir


ile yordamı çağırabilirsiniz...



  Bul
  Alıntı
Bu mesajı beğenenler:
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#3
20-01-2012, 18:49 (En son düzenleme: 20-01-2012, 18:49 sonerdursun.)
call yazdir ile hata verdi modül içine aşağıdaki gibi yapıp MODULADI.yazdir şeklinde kullanınca oldu call yazdir ile ekteki hatayı verdi .


Visual Basic
  1. Sub Yazdir()
  2.     DoCmd.RunCommand acCmdPrint
  3.     DoCmd.SelectObject acForm, Screen.ActiveForm.Name, False
  4. End Sub









Eklenti Dosyaları
.jpg   call.JPG (Boyut: 19,94 KB / İndirilme: 113)



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#4
20-01-2012, 20:05
evet haklısınız dediğiniz şekilde olmalı, form kodlarının olduğu pencerede olsaydı benim yazdığım şekilde çalışması gerekirdi.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 467 23-11-2025, 11:33
Son Mesaj: dsezgin
  [FORM] Sekmeli Formlarda Ekran çözünürlülüğü hedefkaya 3 376 07-12-2024, 18:28
Son Mesaj: hedefkaya
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 558 14-03-2024, 11:07
Son Mesaj: yahyamacit
  Tabloya Qr Kodla Veri Giriş SBNS 3 525 08-02-2024, 13:24
Son Mesaj: BeyTor
  [VBA] Dosya Yolu Yazdırma benuva 2 508 26-11-2023, 19:06
Son Mesaj: benuva
  [TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma omergenc7 13 1.178 26-03-2023, 13:11
Son Mesaj: dsezgin
  Raporda şablona Yazdırma ankaram 6 658 30-01-2023, 10:53
Son Mesaj: alperalper
  Aktif Formdaki Raporu Yazdırma ankaram 3 442 27-01-2023, 00:46
Son Mesaj: BeyTor

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi