Raporda Toplu Yazdırma

1 2
14/03/2024, 12:24

SeferŞANLI

(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...
14/03/2024, 17:52

atoykan

Rica ederim, iyi çalışmalar.
1 2