كيف اسوي ترقيم تلقائي لكل صفحة في التقرير

تحية طيبة

قم بعمل التالى فى التقرير :

Dim intCounter As Integer

Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
    intCounter = intCounter + 1
    Me.id_sick = intCounter

End Sub


    Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
      intCounter = 0
    End Sub

بالتوفيق

NF_2010.rar