A.S.C Filtre, Grafik ve Raporlama Eklentisi

[RAPOR] access ayrı raporları toplu yazdırma
#1
meraba

acces formda komut düğmesi kullanarak ayrı raporları tek tuşla yazdırmak istiyorum ama yardımcı olursanız,


DoCmd.SelectObject acReport, "KONTURAT", True
DoCmd.SelectObject acReport, "KONTURAT2", True
DoCmd.SelectObject acReport, "KONTURAT3", True
DoCmd.RunCommand acCmdPrint


3.adet ayrı rapor var. tek tuşla yazıcı seçerek yazdırmak istiyorum..



  Alıntı
Bu mesajı beğenenler:
#2
şöyle yapabilirsiniz.
Kod:
Dim obj As AccessObject
Const ontanim As String = "KONTUR"

For Each obj In Application.CurrentProject.AllReports
 If Left$(obj.Name, 6) = ontanim Then
     DoCmd.OpenReport obj.Name, acViewNormal      
 End If
Next obj



  Alıntı
Bu mesajı beğenenler:
#3
çok teşekkürler
kod çalışıyor
ama
yazıcı default a yolluyor. yazıcı seçtirmiyor. 
yazıcıyı seçmem için kodu nasıl düzenleyebilirim...



  Alıntı
Bu mesajı beğenenler:
#4
Şu şekilde değişiklik yapabilirsiniz.
Kod:
Dim obj As AccessObject
Const ontanim As String = "KONTUR"

Dim strGecerliYazici  as string
'Geçerli Yazıcıyı Bul ve Değişkene Ata
strGecerliYazici  = Application.Printer.DeviceName

'Yazıcı Seçimi
Set Application.Printer = Application.Printers("Yazdırmak İstenen Yazıcının Adı")

For Each obj In Application.CurrentProject.AllReports
If Left$(obj.Name, 6) = ontanim Then
    DoCmd.OpenReport obj.Name, acViewNormal      
End If
Next obj

'Geçerli Yazıcıyı Tekrar Ata
Set Application.Printer = Application.Printers(strGecerliYazici)



  Alıntı
Bu mesajı beğenenler:
#5
BU KODDA ÇOK GÜZEL ÇALIŞIYOR AMA 
DoCmd.RunCommand acCmdPrint 
YAZICI SEÇİMİNİ TUŞA BASTIĞIMIZ ZAMAN
SEÇME ŞANSIMIZ VARMI
BİRDE

RAPOR İSİMLERİNİ VEREREK YAZDIRMA ŞANSIMIZ VARMI ACABA (Const ontanim As String = ("KONTURAT" And "KONTURAT2" And "KONTURAT3" And "TAHLIYE_TAAHHUTNAMESI"))

GİBİ

Dim obj As AccessObject
Const ontanim As String = ("KONTURAT" And "KONTURAT2" And "KONTURAT3" And "TAHLIYE_TAAHHUTNAMESI")

Dim strGecerliYazici  As String
'Geçerli Yazıcıyı Bul ve Değişkene Ata
strGecerliYazici = Application.Printer.DeviceName("Adobe PDF")

'Yazıcı Seçimi
Set Application.Printer = Application.Printers

For Each obj In Application.CurrentProject.AllReports
If obj.Name = ontanim Then
    DoCmd.OpenReport obj.Name, acViewNormal
End If
Next obj

'Geçerli Yazıcıyı Tekrar Ata
Set Application.Printer = Application.Printers(strGecerliYazici)



  Alıntı
Bu mesajı beğenenler:
#6
Kodumuzu tekrar düzenleyelim.
Kod:
'Raporu Yazdıran Düğmenin Click Olayına Yaz.

DoCmd.OpenReport, "KONTURAT",acViewPreview
DoCmd.OpenReport, "KONTURAT2",acViewPreview
DoCmd.OpenReport, "KONTURAT3",acViewPreview
DoCmd.OpenReport, "TAHLIYE_TAAHHUTNAMESI",acViewPreview

Şimdi de diğer kodlara geçelim.
Kod:
'KONTURAT Raporunun Activate Olayına,
On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, Reports!KONTURAT

Diğer kod
Kod:
'KONTURAT2 Raporunun Activate Olayına,
On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, Reports!KONTURAT2
Diğer kod
Kod:
'KONTURAT3 Raporunun Activate Olayına,
On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, Reports!KONTURAT3
ve Son kod
Kod:
'TAHLIYE_TAAHHUTNAMESI Raporunun Activate Olayına,
On Error Resume Next
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, Reports!TAHLIYE_TAAHHUTNAMESI
kodlarını yazın.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Ayrı Excel Sayfalarına Bölme Satir 4 43 25-05-2020, 17:11
Son Mesaj: Satir
  [FORM] Toplu Resim Seç Dosya Yolunu Kaydet hedefkaya 2 46 02-05-2020, 16:08
Son Mesaj: hedefkaya
  Iki Ayrı Alt Formdaki Toplamları Başka Forma Gösterme İcra 8 139 16-04-2020, 21:07
Son Mesaj: İcra
  [FORM] Güncelleme Sonrası Yazdırma Işlemi Ahmet51 14 230 13-04-2020, 14:46
Son Mesaj: Ahmet51
  [RAPOR] 10 X 10 Etiket Raporlama Ve Istenilen Adet Yazdırma yenginoglu 3 104 02-03-2020, 11:59
Son Mesaj: husem
  Formdaki Verileri Word'e Tekli Ve çoklu Yazdırma prestij06 3 179 17-02-2020, 22:52
Son Mesaj: dsezgin
  [VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma Ahmet51 6 192 10-02-2020, 16:24
Son Mesaj: Ahmet51
  [RAPOR] Secenek Denetimine Rapor Atama Ve Seçime Göre Yazdırma sefersanli 3 239 28-11-2019, 08:24
Son Mesaj: sefersanli

Foruma Git:


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