Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[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..
Bul
Alıntı
#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

Kullanıcı İmzası
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

BLOG SİTEM
Access Makaleleri

YARDIMCI ARAÇ UYGULAMALARIM
1-Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)
ARAYÜZ ÇALIŞMALARIM
1-GIF’li Ana Menü Uygulaması (MENU)
2-Başlangıç Ekranı (Bir sonraki Açılışta Bu Ekranı Göster/Gizle) (FORM)
3-Uygulama Ana ekranı (Otobüs Bilet Otomasyon) (MENU)
4-Web Menü Uygulaması (MENU)
5-Office Menü Uygulaması (ProgressBar+Şifre Ekranı)-(MENU)
6-Reklam Formu Uygulaması (FORM)
7-Ana Menü Oluşturma (Tablo Verileri Kullanarak) (MENU)
8-Etkileyici Formlar
9-Ana Menü Uygulaması
10- Kullanıcı Giriş Formu (Login Örneği)



Alıntı
#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...
Bul
Alıntı
#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)

Kullanıcı İmzası
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

BLOG SİTEM
Access Makaleleri

YARDIMCI ARAÇ UYGULAMALARIM
1-Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)
ARAYÜZ ÇALIŞMALARIM
1-GIF’li Ana Menü Uygulaması (MENU)
2-Başlangıç Ekranı (Bir sonraki Açılışta Bu Ekranı Göster/Gizle) (FORM)
3-Uygulama Ana ekranı (Otobüs Bilet Otomasyon) (MENU)
4-Web Menü Uygulaması (MENU)
5-Office Menü Uygulaması (ProgressBar+Şifre Ekranı)-(MENU)
6-Reklam Formu Uygulaması (FORM)
7-Ana Menü Oluşturma (Tablo Verileri Kullanarak) (MENU)
8-Etkileyici Formlar
9-Ana Menü Uygulaması
10- Kullanıcı Giriş Formu (Login Örneği)



Alıntı
#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)
Bul
Alıntı
#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.

Kullanıcı İmzası
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

BLOG SİTEM
Access Makaleleri

YARDIMCI ARAÇ UYGULAMALARIM
1-Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)
ARAYÜZ ÇALIŞMALARIM
1-GIF’li Ana Menü Uygulaması (MENU)
2-Başlangıç Ekranı (Bir sonraki Açılışta Bu Ekranı Göster/Gizle) (FORM)
3-Uygulama Ana ekranı (Otobüs Bilet Otomasyon) (MENU)
4-Web Menü Uygulaması (MENU)
5-Office Menü Uygulaması (ProgressBar+Şifre Ekranı)-(MENU)
6-Reklam Formu Uygulaması (FORM)
7-Ana Menü Oluşturma (Tablo Verileri Kullanarak) (MENU)
8-Etkileyici Formlar
9-Ana Menü Uygulaması
10- Kullanıcı Giriş Formu (Login Örneği)



Alıntı


İmlemeler

Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-18 En az olanı otomatik vermesi ve excel'e yazdırma prestij06 25 372 14-06-2019, 08:27
Son Mesaj: prestij06
  [TABLO] ID Numarasına Göre İki Ayrı Tablodan Veri Silmek keremm 2 80 10-05-2019, 00:03
Son Mesaj: keremm
  [SORGU] Liste Kutusundan Seçilen Alanlara Göre Rapor Yazdırma Ahmet51 9 234 21-04-2019, 09:34
Son Mesaj: Ahmet51
  [VBA] Mail listesine toplu mail göndermek iscinar 5 437 27-03-2019, 13:00
Son Mesaj: ebenli
  [SORGU] Toplu Sql Hk. byflawles 2 163 06-03-2019, 00:28
Son Mesaj: halily
  [RAPOR] kdv birimlerinin ayrı toplanması anno55 10 430 24-10-2018, 17:34
Son Mesaj: anno55
  [RAPOR] Raporları tek sayfada birleştirmek asoha 4 283 10-10-2018, 15:50
Son Mesaj: asoha
  [FORM] İlişkisiz Metinin Ayrı Değerler Gösterebilmesi fatihsipahi 2 231 26-09-2018, 21:00
Son Mesaj: fatihsipahi

Foruma Git:


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