+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor Baskı Önizleme Sorunu (/konu-rapor-baski-onizleme-sorunu.html)
Rapor Baskı Önizleme Sorunu - m_demir - 31/10/2016
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.
Cvp: Rapor Baskı Önizleme Sorunu - m_demir - 31/10/2016
Arkadaşlar YazıcıSec ve YazıcıSec1 olarak iki forum ekledim. Sorunumu o şekilde hal etmeye çalıştım olmadı. Hata verdi.
Cvp: Rapor Baskı Önizleme Sorunu - ozanakkaya - 31/10/2016
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 FunctionCvp: Rapor Baskı Önizleme Sorunu - m_demir - 31/10/2016
Çok, çok teşekkürler Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz saygılar.