• 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[RAPOR] access ayrı raporları toplu yazdırma
#7
Visual Basic
Private Sub Dugme_Click()
Dim obj As Object, Sayac As Long, strGecerliYazici, Yazicilar(10), Goster As String
Dim ontanim As Variant, Prt As Printer, Sec As Variant
ontanim = Array("Rapor_1", "Rapor_2", "Rapor_3", "Rapor_4") '**** YAZDIRMAK ISTEDIIN RAPOR ADLARI YAZILMALIDIR.*****
strGecerliYazici = Application.Printer.DeviceName
For Each Prt In Printers
    Sayac = Sayac + 1
    Yazicilar(Sayac) = Prt.DeviceName
    Goster = Goster & Sayac & ". " & Prt.DeviceName & vbNewLine
Next Prt
Sec = InputBox(Goster & vbNewLine & "Yazici Numarasini Giriniz", "YAZICI SECIM", 0)
If Sec = 0 Then
    Exit Sub
Else
    Set Application.Printer = Application.Printers(Yazicilar(Sec))
End If
Sayac = 0
For Sayac = 0 To ubound(ontanim )
        DoCmd.OpenReport ontanim(Sayac), acViewNormal
Next Sayac
Set Application.Printer = Application.Printers(strGecerliYazici)
end Sub



olarak deneyiniz.....
  Alıntı
Bu mesajı beğenenler:
#8
Sezgin Usta,
Arkadaş Yazıcı seçimini tuşa basınca görmek istiyor. Ben kodu ona göre düzenledim.
  Alıntı
Bu mesajı beğenenler:
#9
Hocalarım  ilginizden dolayı çok çok teşekkür ederim.....
  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 982 25-06-2019, 13:47
Son Mesaj: halily
  [TABLO] ID Numarasına Göre İki Ayrı Tablodan Veri Silmek keremm 2 89 10-05-2019, 00:03
Son Mesaj: keremm
  [SORGU] Liste Kutusundan Seçilen Alanlara Göre Rapor Yazdırma Ahmet51 9 256 21-04-2019, 09:34
Son Mesaj: Ahmet51
  [VBA] Mail listesine toplu mail göndermek iscinar 5 467 27-03-2019, 13:00
Son Mesaj: ebenli
  [SORGU] Toplu Sql Hk. byflawles 2 182 06-03-2019, 00:28
Son Mesaj: halily
  [RAPOR] kdv birimlerinin ayrı toplanması anno55 10 442 24-10-2018, 17:34
Son Mesaj: anno55
  [RAPOR] Raporları tek sayfada birleştirmek asoha 4 296 10-10-2018, 15:50
Son Mesaj: asoha
  [FORM] İlişkisiz Metinin Ayrı Değerler Gösterebilmesi fatihsipahi 2 236 26-09-2018, 21:00
Son Mesaj: fatihsipahi

Foruma Git:


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