Rapor Baskı Önizleme Sorunu

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.

Arkadaşlar YazıcıSec ve YazıcıSec1 olarak iki forum ekledim. Sorunumu o şekilde hal etmeye çalıştım olmadı. Hata verdi.

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

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