اظهار Label على صفحة محددة لتقرير الاكسيس

مارأيك بتخصيص نموذج لهذه المهمة تحدد فيه عدد النسخ اذا احتاج الامر لطباعة أكثر من ثلاث نسخ . وزر أمر طباعة التقرير .

في خاصية النقر لهذا الزر اعمل Do loop بعدد مرات النسخ وفي المرة الثالثة أظهر label1 .

ضع هذا الكود في كود التقرير مع إجراء التعديلات الضرورية

Option Compare Database

Option Explicit

Dim PageNo As Integer

Private Sub Report_Open(Cancel As Integer)

PageNo = 0

End Sub

Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)

PageNo = PageNo + 1

If PageNo = 3 Then

Label1.Visible = False

Else

Label1.Visible = True

End Sub

ابو لمى و y9192ad

شكراَ جزيلاً على ما تفضلتم به من مساعدة