Rapor yazdırma için Call RaporYazdirma kodu var, baskı öz izleme için hangi kodu kullanacağız?

(18-03-2016, 22:31)ekremer1969 demiş ki: baskı öz izleme için hangi kodu kullanacağız?

RaporYazdirma prosedurun icinde rapor ile ilgili eylem satiri vardir. Cift konumlu buton ile
acViewPreview...Baki On izler
acViewNormal...Yazicidan cikar

Sub RaporYazdirma()
docmd.openreport "RaporAdi",iif(me.CiftKonumButunu=-1,acViewPreview,acViewNormal),,"[KosulSutunu]='" & Me.SorguKutusu & "'",acWindowNormal
end sub

Hocam sağ ol. Call RaporYazdirma kodu Taruz hocanın yetkilendirme programında var ve çalışıyor ama baskı ön izleme yapma olmadan yazdırmak mantıklı değil, mevcut kod şu şekilde;

Private Sub Komut6_Click()
Call RaporYazdirma("YATIRIM Sorgu Sorgu1 Kopyası")
End Sub

Başka şekilde denedim bu sefer Taruz Hocanın yetkilendirme programı hata verdi. Call RaporYazdirma kodu fazla değişmeden baskı ön izleme yapılabilir mi? teşekkürler....

Not: Kod konusunda yeniyim

Sn ekremer1969
Private Sub Komut6_Click()
Mesaj 2'de ki docmd.openrapor "RaporAdi",acViewPreview,,,acWindowNormal
End Sub
ile baski on izleme yapilir. Baski on izleme esnasinda Ctrl+P ile ayni rapor yazicida bastirilir.

Merhaba sayın ekremer1969, dsezgin Hocamın affına mağruren
Taruz hocanın yetkilendirme uygulamasında bulunan MYetki modülünde bulunan aşağıdaki fonksiyonu kallanıyorsanız;

Public Function RaporYazdirma(rprY As String)
Dim kllncY As String, raporadiY As String
raporadiY = rprY
kllncY = AktifKullaniciYetkisi
On Error Resume Next
Dim RgormeY As Double
RgormeY = DLookup("yazdirabilir", "TNesneIzinleri", _
"nesne = '" & raporadiY & _
"' AND grup = " & kllncY)
If RgormeY = -1 Then
MsgBox "Bu raporu yazdırma yetkiniz yok! ", vbInformation, "Taruz 2012"
Else
DoCmd.OpenReport raporadiY, acViewPreview
End If
End Function

koyu kırmızı alandaki değişiklik isteğinizi karşılayacaktır.

Başka yapmam gereken değişiklik var mı? Tıkladığım tuş için değiştirmem gereken kısım gibi....