Rapor Baskı Önizleme Sorunu

31/10/2016, 01:11

m_demir

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.
31/10/2016, 01:35

m_demir

Arkadaşlar YazıcıSec ve YazıcıSec1 olarak iki forum ekledim. Sorunumu o şekilde hal etmeye çalıştım olmadı. Hata verdi.
31/10/2016, 08:18

ozanakkaya

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.

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

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
31/10/2016, 13:57

m_demir

Çok, çok teşekkürler Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz saygılar.