Skip to main content

AccessTr.neT


Rapor Baskı Önizleme Sorunu

Rapor Baskı Önizleme Sorunu

#1
Merhaba Hocalarım.
Eklediğim uygulamada Veresiye Satışlar Formunda Ayrıntılı Rapor ve Toplam Rapor adı altında iki adet rapor baskı önizleme butonu var raporlara yazıcı seç formu ekledim. Raporlardan birini açıp yazdırmak istediğim zaman raporların ikisini üst üste açıyor. Yani Toplam Rapor ve Ayrıntılı Ramoru üst üste açıyor. 
Benim istediğim bu iki rapordan hangisini yazdırmak istiyorsam sadece o raporu açsın ve yazıcı seç formundan yazıcıyı seçip sadece o raporu yazdırmak istiyorum. İyi geceler.
.rar Cari.rar (Dosya Boyutu: 83,58 KB | İndirme Sayısı: 3)
Son Düzenleme: 31/10/2016, 01:17, Düzenleyen: m_demir.
Cevapla
#2
Arkadaşlar YazıcıSec ve YazıcıSec1 olarak iki forum ekledim. Sorunumu o şekilde hal etmeye çalıştım olmadı. Hata verdi.
Son Düzenleme: 31/10/2016, 01:53, Düzenleyen: m_demir.
Cevapla
#3
Merhaba, 
Butona iki raporuda açtıracak kod eklemişsiniz. Haliyle ikisini de yazdırıyor.

YazıcıSec Formunun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Visual Basic Code
Dim prt As Printer
Dim stDocName As String
Set prt = Application.Printers(Me!YaziciSec.Value)
Set Application.Printer = prt

If RaporAcikMi("GenelRapor") = True Then
    DoCmd.OpenReport "GenelRapor", acPreview
Else
    DoCmd.OpenReport "kalan_tplm", acPreview
End If

DoCmd.Close acForm, "YaziciSec"
DoCmd.PrintOut acPages, 1, 1

If RaporAcikMi("GenelRapor") = True Then
    DoCmd.Close acReport, "GenelRapor"
Else
    DoCmd.Close acReport, "kalan_tplm"
End If

Set Application.Printer = Nothing

Gelen Kod isimli modüle aşağıdaki fonksiyonu ekle

Visual Basic Code
Function RaporAcikMi(GRaporAdi As String) As Boolean
On Error GoTo Hata
 
    If Application.CurrentProject.AllReports(GRaporAdi).IsLoaded = True Then
        RaporAcikMi = True
    Else
        RaporAcikMi = False
    End If
 
Hata_Exit:
    On Error Resume Next
    Exit Function
 
Hata:
    MsgBox Err.Number & "-" & Err.Description
    Resume Hata_Exit
End Function
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
Çok, çok teşekkürler Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz saygılar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task