+- 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ığı: Açılan Raporda Mouse Sağ Tuşla Yazdırma (/konu-acilan-raporda-mouse-sag-tusla-yazdirma.html)
Açılan Raporda Mouse Sağ Tuşla Yazdırma - hnakis - 19/05/2023
sayın arkadaşlar. çalışmamda Access penceresi gizleme kodu kullanıyorum. formda listeden seçtiğim kaydın raporunu açıyorum. ancak mouse sağ click açılmadığı için yazıcıya gönderemiyorum. kullandığım kodlar aşağıda. nerde hata yapıyorum acaba.
Kodlar;
Private Sub Komut41_Click()
If Liste2.ItemsSelected.Count = 0 Then: MsgBox "MsgBox "Lütfen raporu çıkarılacak kayıt seçin...", vbInformation, " ": Exit Sub
1. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Column(6) & "'"
2. deneme : DoCmd.OpenReport "R_SONUÇ", acViewReport, acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"
3. deneme : DoCmd.OpenReport "R_SONUÇ", acViewPreview, acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"
4. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Column(6) & "'"
5. deneme : DoCmd.OpenReport "R_SONUÇ", acViewPreview, "", , acNormal, "NumuneNo='" & Me.Liste2.Column(6) & "'"
bu kodların hepsinde rapor açılıyor ancak mouse sağ click çalımadığı için çıktı alamıyorum.
Rapor açıldı olayı kodu
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
yardımcı olunursa çok sevinirim. saygılar.
RE: Açılan Raporda Mouse Sağ Tuşla Yazdırma - ozguryasin - 19/05/2023
eğer diğer bir konunuzda önerdiğim, gizleme olarak eklediğiniz kodu tersine çevirmezseniz sağ tıklama çalışmaz.
konu budur. https://accesstr.net/konu-raporlarda-sag-tik-menude-gorunumleri-pasif-yapmak.html?pid=190039#pid190039