[مصطفى حفناوى]

ارجو الافادة ايه الخطا فى هذه الجملة
تظهر لى رسالة خطا وشكرا
Option Compare Database
Option Explicit
Dim prevpage As Double
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Text162 = Text163 - prevpage
prevpage = Text163 and
Text166 = Text164 - prevpage
prevpage = Text164
End Sub