[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
access-sql-18 En az olanı otomatik vermesi ve excel'e yazdırma prestij06 43 1.520 25-06-2019, 13:47
Son Mesaj: halily
  [TABLO] ID Numarasına Göre İki Ayrı Tablodan Veri Silmek keremm 2 107 10-05-2019, 00:03
Son Mesaj: keremm
  [SORGU] Liste Kutusundan Seçilen Alanlara Göre Rapor Yazdırma Ahmet51 9 285 21-04-2019, 09:34
Son Mesaj: Ahmet51
  [VBA] Mail listesine toplu mail göndermek iscinar 5 481 27-03-2019, 13:00
Son Mesaj: ebenli
  [SORGU] Toplu Sql Hk. byflawles 2 197 06-03-2019, 00:28
Son Mesaj: halily
  [RAPOR] kdv birimlerinin ayrı toplanması anno55 10 454 24-10-2018, 17:34
Son Mesaj: anno55
  [RAPOR] Raporları tek sayfada birleştirmek asoha 4 304 10-10-2018, 15:50
Son Mesaj: asoha
  [FORM] İlişkisiz Metinin Ayrı Değerler Gösterebilmesi fatihsipahi 2 249 26-09-2018, 21:00
Son Mesaj: fatihsipahi

Foruma Git:


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