Dim stDocName As String
Dim kayitli_sayisi, kopya_sayisi As Integer
kayitli_sayisi = DCount("altformno", "tasiniralttbl", "sno=" & Me.Kimlik)
If kayitli_sayisi <= 7 Then
kopya_sayisi = 2
Else
kopya_sayisi = 1
End If
stDocName = "IstekRpr"
DoCmd.SelectObject acReport, stDocName, True
DoCmd.PrintOut , , , , kopya_sayisi
Bu bilgisayarda yazıcı olmadığı için deneyemiyorum. Kodları Komut15 isimli butonun Tıklanma olayına yazacaksınız. Elbette önce yazmış olduklarınızı silmeniz lazım.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.