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.

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
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