Sayın ozan bey’in hoşgörüsü ve izni ile talebinize ilk etapta yardımcı olmak üzere bilgilendirmede bulunmak adına,
Alıntı:...yazdır komutu verdikten sonra her öğrenci için ayrı ayrı onay vermek zorundayız...
Alıntı:...sınıfı seçip yazdır dedikten sonra onay istemeden tüm sınıf için sınav kağıdı yazdırma şansımız olabilir mi?...
ifadeniz ile kast ettiğiniz talep;
sanırım,butonun tıklandığında olay yordamındaki yazdırma mesajının çıkmaksızın direkt baskı işleminin gerçekleştirilmesi ise,yapmanız gereken aşağıdaki kod ifadeleri ile mevcut olan kodları değiştirmenizdir.
Kod:
Private Sub Komut10_Click()
Dim objWordApp As Object
Dim objWordDoc As Object
Dim strBMName, BelgeYolu As String
Dim objBMRange As Object
Dim i As Integer
BelgeYolu = CurrentProject.Path & "\" & Me.acl_sinifi & ".doc"
Set objWordApp = CreateObject("Word.Application")
Set objWordDoc = objWordApp.Documents.Open(BelgeYolu)
objWordApp.Visible = False
For i = 0 To Me.Liste5.ListCount - 1
strBMName = "OgrenciBilgileri"
Set objBMRange = objWordDoc.Bookmarks(strBMName).Range
objBMRange.Text = Me.Liste5.Column(2, i) & "," & Me.Liste5.Column(1, i) & "," & Me.Liste5.Column(3, i)
objWordDoc.Bookmarks.Add Name:=strBMName, Range:=objBMRange
Set objBMRange = Nothing
' If MsgBox(Me.Liste5.Column(1, i) & " isimli öğrencinin belgesi yazdırılsın mı?", vbYesNo, "yazdırma işlemi.") = vbYes Then
objWordApp.PrintOut Background:=False
' End If
Next i
objWordApp.Quit False
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub