Raporda Toplu Yazdırma

(13/03/2024, 14:11)atoykan yazdı:

Private Sub Komut95_Click()

    On Error GoTo Err_Komut12_Click  

    Dim x As Integer

    Dim stDocName As String



    For x = 0 To Me.lsttm.ListCount - 1

        Me.lsttm.Selected(x) = True ' Listbox satırı seçili hale getirir



        If Me.lsttm.ItemsSelected.Count = 0 Then

            MsgBox ("Yazdırmak için seçili kişi yok")

            Exit Sub

        Else

            stDocName = "rpr_stajdosyasi2"

            DoCmd.OpenReport stDocName, acNormal

        End If



        Me.lsttm.Selected(x) = False ' Listbox satır seçimini kaldırır

    Next x



    Exit_Komut12_Click:

        Exit Sub



    Err_Komut12_Click:

        MsgBox Err.Description

        Resume Exit_Komut12_Click

End Sub

şeklindeki kod listboxınızda öğrencileri sırası ile seçer raporunu yazdırır. Komut95 adlı buton yordamına komut12 diye error handler eklemek de çok mantıklı değil. Bu kadar düzensiz çalışma sonunda kargaşaya ve içinden çıkmadığınız sorunlara sebep olur.

Teşekkür ediyorum...

Rica ederim, iyi çalışmalar.